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UM NOVO VISUAL | 











PARA A GERAÇÃO 








QUE VAI MANDAR. 


SABER 
MANDAR. 


ÃO LANÇAR O PRIMEIRO E E = O EXPERTMSX, 
MICRO, DE FATO, PESSOAL E E A GRADIENTE ACREDITA 
A GRADIENTE ESTA een a ” QUE ESTÁ FORNECENDO 
E LEVANDO A SERIO = “ UM INSTRUMENTO 
(E COMO) UMA COISA VALIOSO. EXTREMAMENTE 
QUE SEUS FILHOS - É ACESSÍVEL, ATE A PAIS. 
MOSTRAM TODO DIA A PORQUE SÃO VOCÊS, 
VOCÊ, SEM A MENOR É ESO OS PAIS, QUE 
CERIMÔNIA: O FUTURO DETERMINAM OU 
COMEÇA EM CASA. ESCOLHEM ENTRE O FILHO 
À HABILIDADE DE QUE ENTENDE E USA 
RACIOCINAR, DE E MICROCOMPUTADORES 
MANIPULAR SÍMBOLOS, E O QUE VAI SER 
DE USAR SEM MEDO ENGANADO, ILUDIDO OU 
A LINGUAGEM DO SEU MISTIFICADO POR ELES. 
TEMPO, A CAPACIDADE E A GERAÇÃO QUE VAI 
LIVRE DE CRIAR - TUDO a E MANDAR QUE NOS DES- 
ISSO - É VER UM FILHO : CULPE, MAS SABER ESCO- 
DESCOBRINDO A VIDA. - É LHER O MELHOR PROGRA- 
DESCOBRINDO QUE SABE. MA, ÀS VEZES, PODE SER 
a E O QUE VAI DIFERENCIAR FICAR EM CASA. AO LADO 
A CABEÇA DO SEU FILHO DE UM CUMPLICE HONES- 
E A SUA VONTADE DE TO E CULTO SEM SER CHA- 
APOIAR E SUS- TO E MORALIS- 
TENTAR OS TA, EBOMCA- 
ESFORÇOS DELE RATER SEM SER 
EM QUALQUER INGÊNUO. PA- 
TIPO DE APREN- RA PRATICAR 
DIZADO. ' É INTELIGÊNCIA 
AO COLOCAR E 3 PARA ENFREN- 
NAS LOJAS E TARA VIDA. 

































Ee FEI ogradiente 


CARACTERÍSTICAS TÉCNICAS: e O EXPERT MSX É UM SUPER 8 BITS COM ALTA VELOCIDADE 3,58 MHz e 16 CORES e MICROPROCESSADOR ZEDA COM UM 
PROCESSADOR PARA VÍDEO E UM PROCESSADOR PARA ÁUDIO e MEMÓRIA RAM DE 80X, SENDO 64K PARA O USUÁRIO E 16K PARA VÍDEO e MEMÓRIA ROM DE 
32K e INTERFACES INCORPORADAS PARA: DISK-DRIVE, JOYSTICK, IMPRESSORA, GRAVADOR, MONITOR RGB E MONOCROMÁTICO, EXPANSÃO DE SISTEMA. 
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GERAÇÃO DE SONS — s:s/c cortigo mostra como 
aproveitar melhor os recursos sonoros do 
padrão MSX. 


14 
5 EDITORIAL EDITOR DE JANELAS — Zixisforme seu MSX em 
12 CARTAS um Macintosh, aprendendo a técnica de 
14 PROGRAMAS construção de janelas, que seguramente, vão 


dar um novo visual em seus programas. 


34 

Discos — Jorge Sergio Massarani nos mostra 
neste artigo mais alguns macetes e aplicações 
possíveis com a utilização de drives. 


38 

CURSO DE PASCAL — cio72beça melhor esta 
linguagem de programação de alto nível que, 
ao contrário do que parece, é bastante 
simples. 


41 

CURSO DE dBASE II — Aprenda algumas dicas 
que vão ajudálo na operação deste best-seller 
mundial dos sistemas gerenciadores de banco 
de dados. 
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JOGOS: LANÇAMENTOS 

Super Poker Goonies Elevator Action Stop The Express Hypen Sports ll Choro Q 
Nemesis KnightMare F-16 Circus Charles Zipper James Bond 007 
Green Beret Flight Deck Super Bilhar Mopiranger Red Moon Space Trouble 
Jet Set Willy Il Maxima Alien Eight Retumto Eden Soccer (Futebol) Show Jumper 
Rambo Chiller Zakil Wood Nightshade KnightLore: Manic Miner 


Mais 150 títulos com os últimos lançamentos da Europa e Japão. 
Todos os jogos acompanham estojo de vinil com capa a 4 cores, manual e lacre de segurança. Gravação em high speed. 
Jogos e programas em fitas, cartuchos e diskets. Atacado e varejo com despacho para todo o Brasil. 














PROGRAMAS ACESSÓRIOS PERIFÉRICOS 
e Banco de Dados Il e Planilha Eletrônica 

ontas a Pagar/Receber e Processador de Texto e FONTE P/ DRIVE E DATA CORDER e DISK DRIVE 5 

ontrole Bancário: “The Designers CABO P/ IMPRESSORAS 1/4 SUM D/D e MONITOR 
e Editor de Sprites e Pencil (Gráfico) BJOYSTICKS — Z S INTERFACE P/ DRIVE 9 PLACA BO COL. 
e Controle de Estoque * Editor de Música & MOUSE - GRÁTIS CARTUCHO GRÁFICO e IMPRESSORAS S DATA CORDER 

Os melhores programas em CP/M agora para MSX em diskette: DBase Il - Calcstar - Wordstar 
ENTREGA EM CURTO PRAZO. 








Rentacom Computer - Av. Pacaembu, 878 - O novo endereço do MSX. Fone: (011) 826-4399 
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EDITORIAL 


Uma edição técnica. Este é o tom desta edição especial de MSX 
Micro. Um número que procura oferecer aos leitores e 
aficcionados pelo padrão, algo um pouco diferente das edições 
normais de nossa revista: uma revista voltada para desvendar 
aspectos e dúvidas que surgem no dia a dia de um usuário MSX, 
além de oferecer maior espaço para a publicação de um número 
maior de programas bem como abrir novos horizontes de 
programação, com o início de dois novos cursos, um de Pascal 
e um de dBase II, para aqueles leitores que não satisfazem em 
apenas operar bem o seu micro. 

Mas, esta edição não fica por aí. MSX Micro também abre um 
outro espaço para a comunicação e troca de idéias entre os 
leitores, com a ampliação da seção de cartas que passará de uma 
para duas páginas, nas edições especiais. 

Em resumo, esta é a proposta da MSX Micro especial. Uma 
idéia que pretendemos aperfeiçoar, cada vez mais, ao longo de 
87 com a publicação de outras edições do mesmo tipo, voltadas 
para aprofundar aspectos técnicos que muitas vezes não temos 
o espaço físico necessário para que isso seja feito nas edições 
normais. Até a próxima. 
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ERADOR 
DE ÁUDIO 


Paulo Roberto Pinheiro Elias 


Um dos recursos 
interesantes dos micros 
MSX reside na 
possibilidade de se usar o 
seu gerador de som 
programável (PSG — 
Programmable Sound 
Generator) para se obter 
música e ruídos ao critério 
e gosto do usuário. 

Através de um 
programa bastante simples 
é possível construir um 
gerador de áudio para tons 
fixos ou varredura de uma 
faixa de frequências, o 
que, entre outras coisas, 
significa poupar alguns 
milhares de cruzados na 
compra de um aparelho 
especificamente para este 
fim, um desejo natural de 
grande número de 
hobbyistas e aficionados 
de eletrônica e áudio. 








O Uso do Gerador: 

A geração de tons fixos é 
particularmente 
interessante para diversas 
aplicações. Procuraremos 
demonstrá-las, 
exemplificando como ela 
pode ser utilizada em 
alguns ajustes de possível 
interesse do usuário. 

a) — Ajuste do azimute 
da cabeça 
gravadora/reprodutora dos 
gravadores cassette: 

Na maioria das vezes 
em que a leitura de um 
programa gravado em fita 
cassette não consegue ser 
feita de modo algum pelo 
micro, o problema reside 


na discrepância entre o 
azimute da cabeça do 
gravador onde foi feita a 
ção e a cabeça do 
gravador onde está sendo 
feita a leitura, Infelizmente, 
os duplicadores de 
programas em fitas cassette 
trabalham de forma 
artezanal e nem sempre 
prezam pelo ajuste do 
azimute de seus 

gravadores. Nestes casos é 
aconselhável trocar a fita 
no revendedor, em vez de 
tentar ajustar o seu 
gravador para azimute da 
fita, o qual pode estar 
errado. Muito menos deve 
O usuário tentar ajustar “de 
ouvido” o azimute, como 
muitas publicações 
orientam, porque a 
imprecisão do processo é 
muito grande e só por 
mero acaso O azimute 
ficará certo. A maneira 
correta de se ajustar é 
conseguida com o auxílio 
de uma fita-padrão 
contendo um sinal gravado 
de 10 000 Hz. Estas fitas 
são caras e de difícil 
obtenção. No entanto, 
pode-se fabricar uma fita 




















de referência caso esteja 
disponível um tape-deck o 
qual se saiba de antemão 
estar corretamente 
azimutado. para fazer isso, 
liga-se a saída de áudio do 
micro à entrada de linha 
do tape-deck (ou à entrada 
auxiliar do amplificador ao 
qual o deck esteja 
conectado). Se o 
equipamento for stereo, 
pode-se usar um conector 
em Y (um terminal RCA 
numa ponta e dois na 
outra), e assim alimentar o 
sinal mono do micro 
igualmente nos dois 
canais. Injeta-se, com O 
auxílio do programa, um 
sinal de 10 000 Hz. Deve- 
se usar a melhor fita 

















cassette passível, já que 
tanto a fita com o shell da 
cassette têm influência 
sobre 0 azimute. O ajuste 
do nível da gavação não 
deve ultrapassar — 10 dB 
na leitura do VU, 
principalmente se for 
usada fita tipo | (férrica) 
Antes de gravar, é 
altamente recomendável 
limpar e desmagnetizar as 
cabeças e guias de fita 
(rolete de borracha e 
capstam). A limpesa pode 
ser feita com álcool 
isopropílico de alto grau 
de pureza, com o auxílio 
de um cotonete, passando, 
o cuidadosamente nas 
partes mencionadas. É 
interessante passar também 
o cotonete embebido no 
álcool durante a 
desmagnetização, para 
facilitar a retirada de óxido 
das partes mais delicadas 
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das cabeças. Depois de 
limpas, seque todas as 
partes com cotonetes 
novos. A limpesa rotineira 
dos tape-decks evita muitas 
dores de cabeça, porque 
as fitas férricas largam 
óxido à medida em que 
ão rodadas, 

Depois de gravar a fita, 
coloque-a para reproduzir 
no gravador a ser ajustado. 
Conecta-se um multímetro 
na saída de monitor do 
gravador. Gira-se com 
cuidado (e sem fazer muita 
pressão) o parafuso que 
regula O azimute até que 
leitura no instrumento seja 
máxima. Na falta de um 
multímetro, pode-se tentar 
fazer esta leitura através do 
VU do tape-deck onde foi 
feita a gravação. Devido à 
baixa velocidade usada nos 
decks-cassette e 
irregularidades nas fitas, é 
normal observar-se ur 
variação de nível (flutter) 
do tom gravado. Por cau: 
disso, deve-se marcar O 
trecho da fita usado para o 
ajuste e repetí-lc que se 
tenha certeza da leitura 
correta no instrumento. 









































Deve-se ter em mente 
que o ajuste do azimute 
por este processo será 











igual ao do deck onde foi 


feita a gravação, 
dependendo deste último 
a precisão do processo. 
Felizmente, a tolerânci: 
desvios de azimute é 
razoável quando o micro 
faz a leitura dos programas 
em fita cassette, porque os 
sinais gravados limitam-se 
frequências médias-agudas, 
motivo pelo qual pod 
usar gravadores portátei 
para esta finalidade, os 
quais geralmente não 
ultrapassam 6 KHz na 
resposta de frequênc 

b) — Ajustes dive 
com sinal de referência de 
1000 Hz: 

Este sinal pode servir 
para múltiplos usos, como 
por exemplo, para ajustar 
o zero dB dos VUS, para 
balancear a gravação ou a 
reprodução stereo, para 
o início e fim de 
uma gravação, etc. 

€) — Afinação de 
instrumentos com 440 Hz 








aos 






























Esta frequência 
corresponde ao lá de 


afinação dos instrumentos 





musicais, a partir da qual 
io obtidos finações 
das outras notas, 

d) — Verificação da 
resposta defrequência de 
diversc 
cadeia de áudio: 

Embora os tons puros 
nem sempre sejam 
adequados para este 
porque certos 
componentes, como as 
caixas — acustícas, 

















s componentes da 


juste, 


integram com o ambiente, 


outros equipamentos 
podem ser checados 
quantc 
com o uso do gerador, 
limitadas as suas 
características, como 





veremos mais adiante, Em 


geral, a faixa útil de 
verificação está entre 30 
Hz e 15 KHz 
considerando-se esta a 
faixa audível para um 
grande número de 
pessoas. 





este desempenho 


Além dos tons fixos, 
pode-se usar O programa 
para varrer faixas pré- 
belecidas de 
frequências, e com isso 
obter uma rápida avaliação 
global do desempenho do 
equipamento. 





O Programa: 

No início (linhas 20 a 70), 
aparecerá um menu para 
seleção do item desejado. 
Em ambos os casos, O 
usuário é alertado para 
entrar com as frequências 
em Hertz (Hz), e não em 
seus múltiplos, pois isto 
simplifica a entrada de 

los. Na rotina de 
varredura (linhas 270 a 
442), devem ser 
fornecidos ao computador 
o intervalo de varredura 
(de quantos em quantos 
Hertz uma frequência pula 
para outra) e O intervalo de 
troca entre duas 
frequências. Usando-se 
estes dois dados com 

téiro, pode-se obter 
diversos efeitos. Por 
exemplo, entrando com 

















eo 
SERIE AZUL PESA 
o ESG di qy 
MAIS QUE UMA s;255 scõos 
NR aniuD 
FERRAMENTA ES atas Tur, 
Ss sata SS 
se 
E E 
UMA AULA! GS 
pat 





COPY II PLUS 


Preço 
23 1.920,00, 





copy mus 
Faça Backup de suas fita-mestres. 
Duplique qualquer programa gravado em 
fita ou cartucho, 

Cópias perfeitas para a sua segurança. 

O Copy TT Plus examina e modifica os 
Esrinéiros do HEADER. Aces vários bio 
dos de uma só vez na memória e coloca 
Header em qualquer programa. Grava em 3 
(três) velocidades diferentes. O Copy II Plus 
reproduz programas em BASIC ou Lingua- 
gem de máquina. É capaz de alterar nomes 
Cm fita ou cartucho é adapta-se automatica” 
“mente à qualquer máquina MSX do mer 
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Em Abri: 
Versão Disco com 50% de desconto aos usuári 
do COPY Il PLUS em Fi 
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valores baixos na 
varredura e na troca (este 
pode ser até zero !), 
obtem-se uma varredura 
mais uniforme, não se 
percebendo tanto a troca 
de uma frequência para 
outra, Como o programa 
mostra qual a frequência 
que está sendo gerada 
num dado momento, 
teclando-se >STOP < 
pode-se interromper a 
varredura, fixando-se a 
geração de uma frequência 
desejada. 


Desempenho do Gerador: 
Foi conectada à saida de 
um Expert versão 1.1, um 
osciloscópio Hitachi 
modelo HV 422, de 40 
MHz, duplo traço, para a 
avaliação qualitativa e 
quantitativa dos sinais 
gerados. Observou-se 








inicialmente uma 
quantidade apreciável de 
ruído, modulado pelas 
senóides das diversas 
frequências injetadas. 
Interrompendo-se a 
execução do programa 
momentâneamente, 
constatou-se que o ruído 
continuava a ser detetado 
em grande quantidade. 
Isto, junto com o perfil de 
contornos limitados das 
senóides, evidenciou 
deficiências provenientes 
do próprio sistema 
gerador, incluindo aí a 
saída do micro. Desta 
forma, torna-se 
desaconselhável o uso 
deste programa para a 
avaliação do desempenho 
de equipamentos de áudio, 
através de um 
osciloscópio, uma vez que 
os tempos de subida e 
descida das senóides 
aparentaram ser muito 
lentos. 


Por outro lado, a 
precisão na emissão das 
frequências demonstrou 
ser o PSG altamente 
confiável e mais eficaz que 
um gerador convencional 
da escala para o ajuste de 
valores específicos de 
frequência entre duas 
divisões de escala, como 
exemplo, 508 Hz, 1002 Hz, 
etc. 

A variação de amplitude 
na varredura foi de +1 -3 
dB de 20 Hz a 20 KHz, 
tomando-se como 
referência de O dB o sinal 
de 1000 Hz do próprio 
gerador, Devido ao 
decréscimo de amplitude 
nas frequências altas, 
aconselha-se usar um 
multímetro para monitorar 
a variação do volume, caso 

eseje, com o auxílio 
O, levantar à curva 
de resposta de frequência 
de um dado equipamento. 





É de capital 
importância, para o 
correto funcionamento do 
gerador, entrar com os 
valores corretos nos 
registros RO e R1 do PSG. 
Na tabela 1 apreceram 
diversos valores 
publicados sugeridos para 
440 Hz, onde o erro 
obtido fica evidenciado 
através de cálculos teóricos 
e leitura no osciloscópio 
(desvios em Hz e %, 
respectivamente), 

Em resumo, o uso do 
erador de 






limites comentados, pode 
ser de grande valia para 
uso a que se propõe e a 
sua rotina utilizada em 
outros programas afins, a 
critério do usuário. 





10 REM 
gerar 
15 REM 


programa para 
tons 
autor:Paulo R 
oberto P.Elias 
16 REM data:25/10/86 
17 CLS:SCREENO,,0:CO 
“ LORÔ,7 
18 KEY OFF 
20 LOCATE 11,5:PRINT 
"GERADOR DE AUDIO” 
30 LOCATE 5,10:PRINT 
"Entre com a OPÇÃO:" 
40 LOCATE 2,13:PRINT 
"1 - Gerador de tons 
Fixos” 
50 LOCATE 2,16:PRINT 
"2 - Varredura de to 
ns” 
55 LOCATE 2,19:PRINT 
"3 - FIM do programa 





60 AS=INKEY$S:IF A$S=" 
” THEN 60 

70 ON VAL(AS)GOTOBO, 
270,450 

80 REM rotina para q 
erar tons fixos 

90 CLS:LOCATE 9,3:PR 
INT"GERADOR DE TONS 
FIXOS” 

100 LOCATEO,8:PRINT” 
Qual a frequência de 
sejada(em Hertz)":IN 
PUT F:PRINT 

110 LOCATEO,13:PRINT 
"Qual a amplitude(vo 
lume) do sinal na sa 
ida (0-15)”": INPUT V 
120 K=35756114/8192/ 
E 

130 RI=INT(K) 

140 RO=INT(.5+256*(K 


-R1)) 

150 SOUND 0,RO 

160 SOUND 1,R1 

170 SOUND 7,254 

180 SOUND 8,V 

190 CLS:LOCATE9,3:PR 
INT"GERADOR DE TONS 
FIXOS” 

200 LOCATEO,13:PRINT 
"Frequência=>";F 

210 LOCATEO,23:PRINT 
"Para interromper pr 
essione <ESPAÇO>" 
220 IS=INKEYS 

230 IF 1I$="” THEN 22 
o 

240 SOUND 8,0 

250 CLS: INPUT"Deseja 
escolher outra freq 

uência(s/n)";0FS 

260 IF OF$="s” THEN 
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90 ELSE 17 

270 REM rotina para 
varredura de tons 
280 CLS:LOCATE 10,5: 
PRINT"VARREDURA DE T 
oNs” 

290 PRINT"Entre com 
a frequência final(e 
m Hz)": INPUT FF 

291 PRINT"Especifiqu 
e o intervalo de var 
redura (em Hz)": IN 
PUT IV 

292 IF FI>FF THEN IV 
m=IV 

300 PRINT"Especifiqu 
e o volume(0-15)":IN 
PUT VV 

301 PRINT"Especifiqu 





e o tempo de troca(l 
000-longo=> 50-curto 
)” : INPUT TT 

302 cLS 

310 FOR I=FI TO FF S 
TEP IV 

320 K=35756114/8192/ 
I 


330 RI=INT(K) 

340 RO=INT(.5+256*(K 
-R1)) 

350 SOUND 0,RO 

360 SOUND 1,RI 

370 SOUND 7,254 

380 SOUND 8,VV 

390 PRINT”"frequência 
=>"; 1: PRINT: PRINT 
400 TIME=0 

410 IF TIMESTT THEN 


410 

420 NEXT 1 

430 IF FI>FF THEN IF 
I<FF THEN SOUND 8,0 

440 IF FIXFF THEN IF 
I>FF THEN SOUND 8,0 

441 PRINT"Deseja faz 
er outra varredura(s 
/n)?": INPUT OVS 

442 IF OV$="s” 
270 ELSE 17 

450 CLS:LOCATE 17,10 
: PRINT"FIM” 

460 FOR Y=1 TO 500:N 
EXT Y 

470 SCREENO,,1:COLOR 

15,1,1:KEY ON 

480 END 


THEN 
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E NIENSORT Eres 


A MELHOR SOFTHOUSE — MSX DA AMÉRICA LATINA 


MONOPOLY. C28 150,00—FOOT VOLLEY. C$ 100,00-TIME CURB.. C2$ 100,00—BASEBALL. C2$60,00—EPISOD 4.Cz$ 150,00-—BACKGAMMON. Cz8 
80,00—STARSHIP..C2$ 80,00—SPITFIRE C2$150,00—B.STORMER.C2$ 80,00—SPACE BUST Cz$ 80,00—DAMBUSTERS. C28 150,00-ELIDON.Cz$ 
100,00—HUMPREY.C28 100,00—ROCKN BOLT.G2$ 150,00—R STATION C28 80,00—ONS WELL. C2$ 100,00KUBUS..C78 100,00—SPELUNKER Cz8 100,00-—NEW 
POKER. C28 80,00-NINJA Hl..C2$ 80,00—DRILLER TANKS. C2$ 150,00—JACK THE NIPPER. Cz$ 100,00-SAMANTHA FOX POKERCz$ 150,00-—MAXIMA. C28 
60,00--3D KNOCKOUT.C2$ 100,00-BANK PANIC.Cz$ 80,00—ROLLERBALL C2$ 80,00—GANG MAN.C28 80,00-CONGO BONGOCZS 80,00--SWEET 
ACORN. C28 80,00—GUNFRIGHTO2$ 80,00—SPARTA X..Cz$ 80,00—KNHGHTMARE- Cr$ 80,00—MASTER GENIUS Cz$ 80,00-—RAMBO Cz$ 90,00--MAPPY.Ceg 
0,00--ASTER ACTION. 28 80,00-—MAC JOE MAFIA. CZ$ 70,00-CHILLER. C2$ 80,00—MAYHEN.C2$ 80,00THUNDERBALL..C2$ 90,00-—JUMPING JACK.C78 


NEWSOFT INFORMÁTICA LTDA. 


RUA SENADOR DANTAS 117 SALA 736 — CENTRO 
PARA OUTROS ESTADOS, PEDIDO MÍNIMO DE Cz$ 300,00 ATRAVÉS DE VALE POSTAL OU CHEQUE NOMINAL À NEWSOFT INFORMÁTICA LTDA. — 
CAIXA POSTAL 4583 CEP 20.001 RIO DE JANEIRO — RJ 
OBS: SOLICITE GRATUITAMENTE NOSSO CATÁLAGO ATUALIZADO CONTENDO TAMBÉM NOSSA GRANDE LISTA DE APLICATIVOS E UTILITÁRIOS CAM 


PARA SEU EXPERT OU HOTBIT. 


* frequência=fc/32* (RO + (256*R1)) 

ynde fe = frequência de clock = 3575611 (Expert) 
»r constante em todas as frequências varrida 

NEM: não foi medido. 


Tabela 1 — Valores dos registros RO (ajuste fino) e R1 
(ajuste grosseiro) para a fregiiência de 440 Hz, 
sugeridos pela literatura. 



















Sempre Novidades 


Agora as Fitas Micromaq 
podem ser fornecidas 
em embalagem 
“SHOCK PROOF" 

Muito mais segurança 
para seus programas.* 





Á MICROMAQ 


IMPRESSORA GRAFIX MTA — Ideal pára a linha MSX. 80 colunas, 80 CPS, 
com recurso que permite a utilização de folhas soltas, envelopes, cartões, etc. 
Versões para o EXPERT 1.0 ou para o EXPERT 1.1/HOTBIT. Consulte-nos 


CABO DE IMPRESSORA MSKX — para ligação de seu MSX à qualquer impres- 
sora paralela padrão CENTRONICS. Indique a marca da impressora e do mi- 
cro, Expert. Cz$ 750,00 Hotbit. « Cz$ 850,00 
















JOGOS 


SIGA FITA: Cz$ 100,00 DISCO: Cz$ 200,00 
Acabou a dúvida! Controle de esto- PRERESI DS GN 5 SOS So 
que, mala postal, contas à pagar ou 
receber, agenda... Agora você tem 
todos estes programas em um só. O 
SIGA — Sistema de Gerenciamento 
de Arquivos — permite que você crie BOEING 737 - Sim. de vôo. Só em fita 
seus próprios campos. Até & campos. ONG Te paro ta O 
Ordena até 3 campos simultaneamente. Permite pesquisa por item ou por BOXE - O tradicional 
chave. O mais completo banco de dados em fita para o MSX, no BRASIL. CIRCUS CHARLIE — Igual ao do Pi 
Emfita .......... C2$ 300,00 Emdisco ..........02$ 400,00 CORRIDA MALUCA - Perseguição num labirinto 


CONTROLE DE DESPESAS 








30 KNOCK OUT - Luta de boxe 

ALIENS — Restabeleça a vida local 

ANIMAL — Um emocionante desafio 

APRENDENDO A CONTAR — EDUCATIVO 

ASTEROIDE — Igual ao do Fliper 

BATTLE FOR MIDWAY — Guerra no Pacífico. Estratégia 
ti 



























4 sua Inteligência 
Você gerencia 20 contas com até 60 lançamen- GALAGA — Idôntico ao FANTASTIC do Fliper 

tos. Gera gráfico de barras analisando suas des- GHOSTBUSTER - Baseado no filme. S6 em ta 
pesas. Atualiza dados através de lançamento de Dna 

contas pagas. 

Emifita .. 


















Cz$ 300,00 





provas olímpicas 
HIPER SPORT Il - Outras 3 provas 
HIPER SPORT Il - Outras 4 provas 
HOLE IN ONE — Golte 

O único que além de emitir seu extrato ban- 
cário, cria o "famoso" extrato descomplicado 
onde você lista somente cheques, ou depó- 
sitos, ou despesas... Suporta mais de 250 
lançamentos em fita ou mais de 2500 em dis- 
co. 









KNIGHTMARE — Pesadelo de um Viking. Aponas "O MELHOR” 
LAZY JONES — 18 jogos de ação em um 

LODE RUNNER 1! - Arcade Game. Excelente 
MACACO ACADÊMICO- EDUCATIVO — Matemáti 












Em fita «+ C28$ 400,00 Em disço sacos 025 500,00 NA Sto contra en pnertolioa e PROA 
OLIMPIADAS | — 4 impicas 
EXTRATOS GUMPIADAS I- Curas é provas 






















Excelente complemento do programa CONTROLE BANCÁRIO para quem não PING PONG- O tradicional 
tem Impressora pois gera todos os extratos no vídeo de seu micro. Somente PAGO UNE o” Comb 
para quem utiliza o programa CONTROLE BANCÁRIO. RIVER RAID - Superior ao ATARI 

Agora incluído no CONTROLE BANCÁRIO a ip 

SOCCER - Futobo! 
CoPyMAQ SPELUNKER — Desvendo os mistérios de uma mina 

Copiador/duplicador de fitas. Copia ue fita com programas até 40 Kb ou tibi ii 
8 blocos gravados em padrão MSX, À partir de agora você poderá ter cópias THE WRECK = Aventu 
de seus programas em outras fitas. Quantas quizer! Em fita .. quer 


C2$ 500,00 TIME PLOT - Comb: 
z 
YIE AR KUNG EU | - Desafio nas artes marciais. 
ZAPPER YIE AR KUNG FU Il - Mais desafios 
ZAXXON — Combate Abrog. Bastante divulgado 


a ZOOM 909 — Batalha espacial em 30 

Promove à varredura de programas contidos ria memória (idos de fta) permi- am : : = = 

tindo alterações nos textos, endereços, header, etc. Você poderá traduzir pro- DECK — Sim. de Vôo com combate, Só em disco. Cz$ 200,00 

gramas ou até mesmo personalizá-los. Também funciona excelente co- NORTH SEA HELICOPTER — Sim. de Vbo. Fita Gz$ 120,00 e Disco Cz$ 220,00 
pace ERA E OO APLICATIVOS E UTILITÁRIOS 
MALA POSTAL ME - Editor musical, E 

Um super banco de dados. Total facilidade em apagar, alterar, buscar, orde- GEN — Editor Assembler. Cz$ 1 

nar e inserir registros. 3 tipos de relatórios diferentes, inclusive etiquetas. 130 pas rd np oo uno rea za: 200,00, 
registros em fita ou 1400 em disco face simples. MSX WRITER — Processador de textos. Cz$ 200,00 
































Emfita.....sesos C2$ 300,00 Em disco .......CE$ 400,00 PASCAL — Complador. (28 150,00 1 
— Editor Assembler e Disassembler. Cz$ 250, 
FICHARIO ELETRONICO TASWORD — Processador de textos. Cz$ 150,00 
Possibilita a criação de fichas sobre qualquer assunto, 3 campos: Assunto,  QObs.: Os aplicativos e utilitários acima, na versão disco, 
descrição e código. Todas as facilidades necessárias a um bom gerencia- deverão sofrer um acréscimo de Cz$ 100,00 
mento. Ideal para advogados e médicos. 80 fichas em fita e 700 em disco sim- E E ” 
ples, Em fit ...eceseee 300,00 Em disco .......... 400,00 Setoiar pencembalagem FSHOCIPHOOF 





acresça Cz$ 20,00 por unidade. 


Remeta-nos CHEQUE NOMINAL E CRUZADO ou VALE POSTAL pagável na AG. CENTRAL — CÓD, 52.0004 para: 
Comércio de Aparelhos Eletrônicos MICROMAQ — Rua Sete de Setembro, 92 Loja 106 — Tel.: 222.6088 — Rio de Janeiro — RJ — CEP 20050 





CARTAS 


CURSO DE BASIC 


Meu nome é Lerner, possuo 
um MSX da Gradiente e gos- 
taria de me corresponder 
com outros usuários do sis- 
tema já que a cidade em que 
moro não oferece muito pa- 
raaárea de computação, aim 
da mais para O sistema MSX, 
por isso peço que publi- 
quem o meu endereço para 
que conheça pessoas que 
possuam MSX e possam tro- 
car informações. Eu queria 
agradecer a esta editora por 
nos dar a oportunidade de 
conhecer melhor o sistema 
e, quanto ao curso de basic, 
discordo do nosso amigo 
Abel de Souza que diz na 
MSX Micro nº 5 que “quem 
tem um micro já tem noção 
de basic que se aprende com 
a vivência e a leitura de pu- 
blicações da área” revis- 
ta foi um passo muito gran- 
de para os usuários MSX. 
Lener Adriano Tofano 
Álvares Machado — SP 




























Aqui vai o endereço pa- 
ra todos os usuários interes 
sados em trocar correspon- 
dência com o Lener: Lener 
Adriano Tofano — Av. das 
Américas, 380 — Álvares 
Machado — SP — CEP 
19160 





PROGRAMAS 
EM DISCO 


Sirvo-me desta para, em pri- 
meiro lugar, parabenizá-los 
pelas preciosas informações 
que são veiculadas nesta ca- 
da vez mais procurada revis 
ta. Em segundo lugar, gos! 
ria de fazer algumas coloca- 
ções e apresentar algumas 
sugestões: 

Devido ao vertiginoso 
crescimento do número de 
usuários da linha MSX, acre- 
dito estar na hora de termos 
esta revista publicada men- 
salmente, ao invés de bimes- 
tralmente como agora. 

Sou proprietário de um 
computador Expert e, como 
não poderia deixar de ser, as- 
sinante de MSX Micro. Te- 
nho observado os pogramas 
publicados e constatado que 
são realmente muito bons. 
Dentre estes, destaco um 
que foi bastante útil chama- 
do Banco de Dados, que é 
um arquivo sequencial des- 
tinado ao armazenamento 
de dados em fita cassete. Co- 
mo, porém sou possuidor de 
um drive da Microsol, já 
consigo salvar meus progra- 
mas em disco e, como eu, 
inúmeros usuários. Sugiro, 
então, que a revista publique 
para serem usados em disco. 









































Exídio Dias dos Santos Cor- 
reia 
Salvador — Ba 


Exido, quanto à sua suges- 
tão de programas para dis- 
co, ela já está sendo coloca- 
da em prática. Agora, 
quanto a passar a revista 
para mensal, esta uma su- 


12 MSXMicro 


gestão que está sendo ana- 
lisada com muito cuidado 
pela editora, para que MSX 
Micro possa sair procuran- 
do oferecer sempre um me- 
Ihor nível de qualidade pa- 
ra seus leitores. De qualquer 
maneira, obrigado pelos 
elogios. 


GRAFIX MTA 


Venho por meio de 
benizá-los pelo excelente tra 
balho que esta revista vem fa- 
zendo a respeito da linha 
MSX. Eu tenho o micro Hot- 
Bit da Sharp e, gostaria de sa- 
ber o preço da Grafix MTA e 
também saber o endereço 
de alguma firma que venda 
o jogo Hyper Sports HI e ain- 
da trocar correspondência 
com outros usuários da linha 
MSX 

Rogério Bringel 

Brasília — DF 









Rogério, o preço médio da 
Grafix MTA está girando 





e quanto ao jogo que você 
está procurando, infeliz- 
mente, não temos nenhuma 
informação a respeito. Aqui 
está o enderço do Rogério, 
para quem estiver interessa- 
do: Rogério Bringel — SQS 
308 bl. Biaptº 301 — Brasi 
lia — DF 


INTERCÂMBIO 


Venho parabenizá-los pela 
publicação desta excelente 
revista e pedir que seja divul- 
gado meu endereço para 
que possa manter corres- 
pondência com outros usuá: 
rios do padrão. 

Silvia Spiczak 

Canoas — R$ 














Aqui vai o endereço da 
Silvia: Silvia Spiczak — Rua 
Boa Saúde, 316 — Canoas 
92200 








Gostaria de saber se há algu- 
ma diferença entre a versão 
10ca LA do Expert e eu te- 
nho um gravador Philips 
sem ajuste de tonalidade e 
ria também de saber se 
faz alguma diferença a não 
existência do ajuste, Por últi- 
mo, se não tem nenhum jei- 
to de parar a execução de 
programas em cartucho. 
Luis Paulo Van Veen 

São José dos Campos — SP 








Luis Paulo, em primeiro lu- 
gar, a diferença entre as 
duas versôs do Expert da 
Gradiente é que a última 
possui uma Eprom diferente 
e algumas que mudaram de 
posição para que os dois 
MSX que existem no merca- 
do fossem totalmente com- 
patíveis de fato. Quanto ao 
ajuste de tom, não faz ne- 








nhuma diferença o fato do 
seu gravador não possuílo, 
já que de maneira geral, os 
gravadores sem ajuste vêm 
ajustados internamente no 
máximo. E, finalmente, 
quanto ao cartucho o único 
Jeito de parar a execução é 
desligar o micro ou então 
apertar o botão de reset do 
equipamento, 


CLUBE 


Enviamos esta carta com O 
objetivo de comunicar a 
fundação de um novo clube 
O, O clube Bra 
sileiro de MSX. Gos mos 
de saber como obter maio: 











res informações de como di- 
vulgá-lo na sua revista. 
Paulo Roberto Dallan — pre 
sidente 

Santos — SP 


Ficamos contentes em saber 


que está surgindo mais clu- 
be dedicado aos usuários 
do padrão MSX. Para que 
você possa divulgá-lo, bas- 
ta que envie para nossa re- 
dação material detalhado a 
respeito do clube como por 
exemplo: histórico do clube. 
oque ofereca quais as taxas 
que existem, nome dos dire 
tores e telefone para conta 
to 








ENGENHARIA 


Adquiri Expert da Gradiente 
há cerca de um ano com a fi- 
nalidade de ser auxiliado em 
meus serviços com Enge- 
nharia Civil. Gostaria de ser 
informado se existe algum 
programa na área e como 
adquiri-lo. Gostaria de saber 
também se a máquina de es: 
crever marca Olivetti mode- 
lo Praxis 20 pode ser utiliza- 
da como impressora 

Juarez Garcia de Souza 
Sertanópolis — PR 














Juarez, a softhouse paulista 
Engesoft possui alguns apli- 
cativos já disponíveis para 
a finalidade que você tem 


em mente. Para adquirir es- 
tes programas, basta entrar 
em contato com a Engesoft 
através do telefone (O!) 
549-9788 ou escrever para 
acaixa postal 42055 — São 
Paulo — SP 

Quanto à sua Olivetti, 
ela pode ser utilizada como 
impressora desde que você 
adquira a interface para es- 
te objetivo, que é a Interfax 
20, fabricada pela Bytex 
Eletrônica e que pode ser 
encontrada nas lojas espe- 
cializadas com um preço 
entre Cz$ 2.700,00 e Cz8 
3.500,00, 





Diskette para MSX Cibertron. 
Deconcepção avançada, com modernas técnicas de programação e manuais 
totalmente em português, éo mais rápido no carregamento do programa. Em al- 
guns segundos você tem operação completa, comeficiênciae muitafacilidade. 
Diskette para MSX Cibertron. Não deixe de ver e rever este programa. 

Veja a seguir os aplicativos profissionais, domésticos e de entretenimento em 
diskette para MSX Cibertron. São vários titulos de grande utilidade para vo- 
cê. No trabalho, em casa e no lazer. 


ASSEMBLY & 
DESASSEMBLY 
Assembly Totalmente relo- 
cável, editor incluso, ma- 
cros, assemblagem condi- 
cional, extrema rapidez de 
compilação. Desassembly- 
Execução passo a passo, 
múltiplos pontos de inter- 
rupção, cópia inteligente. 


CONTROLE DE ESTOQUE 
Permite processar de ma- 
neira eficiente uma quanti- 
dade indeterminada de re- 
gistros, limitados apenas 
pela capacidade do disket- 
te. Inclui código e nome do 
produto, fornecedor, unida- 
de, quantidade, quantidade 
mínima, preço de compra, 
preço de venda e data de 
validade. 


MSXWORD 

Processador de textos. 
Ideal tanto para uso domés- 
tico quanto profissional. 
Permite o armazenamento 
de até 480 linhas. 

Inclui busca de palavras, 
movimentação de blocos, 
reformulação de parágra- 
fos, brocagem, definição de 
margens, duas páginas de 
auxilio ao usuário etc. 


Games. Em cada diskette Cibertron três jogos emocionantes, com alta resolução gráfi- 


caacores e som fantástico. 


e PITFALLII 
e THEZEUS 
e GALAGA 


e GOONIES 
e ALPHA SQUADRON 
e EXERION 





e NORTH SEA HELICOPTER 


NIGHT MARE 


e ANIMAL WAR 





EM ALGUNS 
SEGUNDOS, 
MAIS U 
CAMPEÃO 
DA 


TECNOLOGIA. 


El MEAS ROLE 


( DIBERTAON 
TRENT o RS 


Caso você não encontre o programa dese- 
jado, escreva para: 

Cibertron Eletrônica Ltda. - Caixa Postal 
17.005 - CEP 02399- São Paulo - SP 


Revendedores autorizados: AKOPOL, AU 
DIO, BRENO ROSSI, BRUNO BLOIS, GUE- 
DES, MAGNODATA (Tel.: (011) 255-7653), 
MAPPIN, SHOP AUDIO & VÍDEO (Sto. An- 
dré),CINÓTICA, AMAROSOM, LÓGICA(For- 
taleza), B KAUFFMANN (Santos), MEMO- 
RIASOM E VÍDEO (DF) 

















PROGRAMAS 


EDITOR 


DE JANELAS 


Randolpho Julião 


Os programas User Friendly ou de uso 
amigável, popularizados pelo célebre 
Macintosh, da não menos famosa Ap- 
ple Computer Inc. estão deixando de 
ser, aos poucos, um recurso sofisticado 
e exclusivo de programação para torna- 
rem-se, cada vez mais, uma caracterís- 
tica comum de softwares utilizados em 
certas famílias de micros domésticos. 

O conceito de programa amigável 
foi idealizado e desenvolvido a partir da 
linguagem SMALL TALK 80, utilizado 
pela Xerox norte-americana. A caracte- 
rística principal deste tipo de software 
é o seu uso orientado por menus, íco- 
nes, janelas que se sobrepõem como 
folhas de papel além de manipulação e 
controle do programa através de mou- 
se. 

O sistema MSX também já conta 
com o recurso dos programas user 
friendly. Podem ser encontrados, no 
mercado, alguns programas orientados 
por menus e utlizando recursos de edi- 
ção FULL SCREEN, sendo sua opera- 
ção feita pelas teclas de controle do cur- 
sor, que se posiciona nas opções do 
programa, simulando o uso de um 
mouse. 

Estes programas, com menus muito 
semelhantes ao Macintosh, são de ope- 
ração muito simples, de maneira geral. 


Janelas & windows. 

A utilização de janelas, pelo usuário em 
seus programas poderá dar a estes apli- 
cativos uma aparência mais profissio- 
nal, além de melhorar sensivelmente a 
apresentação visual do mesmo. Entre- 
tanto, esta tarefa costuma ser um tanto 
cansativa pela dificuldade de construir 


as janelas, sem contar o tempo gasto na 
tarefa, 

Apesar disto, mostraremos um mo- 
do fácil e rápido para qualquer pessoa 
que possua um micro do padrão, im- 
plantar este recurso em scus programas, 


Isto é feito através do uso de três su- 
brotinas básicas para desenhar janelas 
e menus no vídeo. As rotinas básicas 
para desenhar janelas e menus no ví- 
deo. As rotinas encontram-se nas linhas 
50.000, 50.010 e 50.030, dando entra- 
da na posição da janela no vídeo (xy), 
o seu comprimento (p), a altura (1) e a 
cor (c). Para que não haja necessidade 
de cálculo da posição das janelas, nem 
preocupação com o “borramento” da 
tela gráfica, após a demonstração virá 
um programa que o ajudará a construir 
suas janelas. 

Usando as teclas de função e as de 
controle do cursor, pode-se criar jane- 
las em qualquer lugar do vídeo e em 
qualquer tamanho. 

Pode-se editar até 30 janelas simul- 
taneamente, sobrepostas ou não. 

Após a criação das telas, pressione 
F8 e aparecerá no vídeo as linhas cor- 
respondentes a cada janela, como por 
exemplo: 
1000X = 176:P = 48Y = 25:1 = 48: 
C= 15: GOSUB 50000 

As cinco variáveis na linha acima são 
a posição da janela no vídeo (xy), o 
comprimento, a altura ea cor. Esta linha 
com o número apropriado, deverá ser 
colocada no programa onde se preten- 
de utilizar a janela construída. As linhas 


1  MSXMcro 














10 60709000 
31 





9000 CLEARIOO 
9007 DIMX(31), YC3L),P(3L), LIS 
1) C(31), FBI) :FORI=ATOT:KEY( 
TJONSNEXTISKEY (9) 0FF:KEY (1010 
FF: ONKEYGOSUB3O1, 302,303, 304, 
305,306: 0PEN"GRP: "FORQUTPUTAS 
“ 

9009 COLORI,5,5:SCREENZ: X=72: 
P=144:Y=0:L=58:0=15: GOSUB5001 
0: PSET(75,6),C:PRINTRI, "Com o 
editor de"; PSET(TS, 16), C:PRI 
NTHI, "janelas pode-se" :PSET(7 
5,26) ,C:PRINTH, "criar janela 
s":PSET(75,36),CiPRINTAS, "peq 
FORJ=1T0400:NEXTU 

1 P=244Y=40:L=23:0=5; 
BOSUB 50010:FORJ=1T0500: IFHC= 
JOOTHENRE TURN: ELSENEXTO 
9020 X=80:P=136:Y=73:L= 








3 








NTE, iedias. «« ":FORJ=1TOS 
00:1F HC=300 THEN RETURN ELSE 
NEXTS 

9030 X=32:P=200:V=6:L=181:C=1 
S:BOSUB 50010:PSET(B5,8),C:PR 
INTHL,"...e grandes. ":FORJ=IT 
0500:1F HC=300 THEN RETURNELS 














50.000, 50.010 e 50.030 deverão estar 
presentes no programa que conterá as 
janelas. Para que isto aconteça, pressio- 
ne F9 e as três linhas ficam disponíveis 
no vídeo, para que sejam copiadas ou 
gravadas (para que sejam mergeadas 
nos programas). A tecla FIO deixa todo 
o programa Editor de Janelas disponí- 
veis para gravação. 


«Instruções de uso: 

O programa tem um menu com 6 
opções que ajudarão a construção das 
janelas. Esse menu aparece no vídeo 
quando a tecla RETURN é pressionada. 
Pressionando qualquer outra, o menu 
desaparece e a janela que estiver sendo 
editada é reimpressa (se não houver ne- 
nhuma janela em edição, aparece so- 
mente O cursor). 

FI — Seleciona um dos 3 tipos de jane- 






ENEXTI 
9040 X=B0:P=104:Y=0:L=48:C=10 
:GOSUB 50010:PSET (88,6), CiPRI 
NTHL, "Formatos": PSET (88, L6),C 
:PRINTHL, “variados: *; FORI=1TO 
100; NEXTO 
9050 X=lbiP= 
+BOSUBS001 
L=21:0=3:60SUB 50010: 1=80' 
Bi y=54:L=48:0=7; 
9060 K=136: 
*BOSUB 50010: K=: 
L=í : BOSUB 5003 
4 103; C= 
O: FORJ=1TO400: TFH 
URNELSENEXTI 
9070 CLS: K=1b:P=b4:V=b:L=24:0 
=15: BOSUB50030:PSET (20,10), C: 
PRINT, "Menus bi P=88:Y= 
39:L=98:0=15:60SUB 50000: FSET 
(34,91), CEPRINTEL, "menu"; PSET 
(20,55), CSPRINTAL, “I-suco": PS 
ET(20,65),C:PRINTEL,"2-sorvet 
e": PSET(20,75),CEPRINTA!, "Sd 
oce": PSET(20,85),C 

9071 PRINTHI, "4-sal gado" 

9080 K=56:P=80:Y=90:L=94:C=15 
7 FORJ=1TO400:NEXTJ:GOSUB 5000 
O:PSET (64,92), C:PRINTAL, "esco 
Tha: ";PSET(59,106),CLPRINTAL, 
“Fl-apaga*:PSET (59, 116) CSPRI 
NTHL, "F2-edita": PSET(59, 126), 
CEPRINTAI, "F3-volta": PSET(S9, 
136) ,CSPRINTAS, "4-4 
9090 K=112:P=136;Y=3:L=t11:C 
































las pré-determinadas pelo programa. 
Essa opção deve ser utilizada antes das 
outras. 

F2 — Muda o tamanho ou posição da 
janela. Quando a tecla é pressionada, o 
programa espera que usuário mude o 
tamanho da janela que está no vídeo. Is- 
to pode ser feito através do cursor, que 
move a parte inferior, aumentando ou 
diminuindo a janela. Pressione RE- 
TURN ea janela passa ao tamanho de- 
terminado. Para mudar de lugar, sem 
mudar de tamanho, basta apertar RE- 
TURN, assim que a opção for acessada. 


F3 — muda a cor da janela 

Fá — Edita ou cria outra janela. A sele- 
ção da janela a ser editada é feita pelas 
teclas horizontais do cursor, avançando 
ou retornando de janela. Quando esse 
processo está sendo executado, a jane- 


la corrente aparece no vídeo. for aper- 
tado, nesse momento, RETURN a janela 
passa a ser a escolhida para edição. Pa- 
ra criar uma nova janela, basta avançar 
com o cursor até aparecer tela limpa e 
aperte RETURN. 

FS — Imprime todas as janelas criadas. 
Quando a tecla é pressionada, a primei- 
ra janela. Pressionando qualquer tecla, 
aparece a segunda e assim por diante. 
Após todas as janelas terem sido im- 
pressas, mantenha a tecla apertada pa- 
ra sair da opção. 

F6 — Imprime no vídeo as linhas que 
fomnecerão os dados para a chamada no 
seu programa de uma das subrotinas 
que imprimem as janelas. Quando es- 
ta função é utilizada, a tela fica com o 
fundo preto e aperece a linha corres- 
pondente à segunda e assim por dian- 
te, 





=[5:FORJ=1T0600: NEXTJ: GOSURSO 
000:PSET(120,33),C:PRINTES, "a 
enu de entrada"; PSET (117,48), 
CEPRINTEI, “I-cadastrar*;PSET( 
117,58) ,C:PRINTAS, "2-alterar" 
4PSET(117,68),C:PRINTAS, "T-ap 
agar*;PSET(117,78),CLPRINTES, 
“4-outra entrada" 
9100 FORJ=1T0700: IFHC=300THEN 
RETURN: ELSENEXTI: CLS: 1=48:P=1 
6074: 1:0=10:G0SUB 50010: 
FSET(60,10),C:PRINTHL, “entrad 
a de dados: * 
910 X=40:P=192:Y=51:L=119:0= 
T:BOSUB 50000:PSET (100,53) ,C: 
PRINT$I, "Entrada" :PSET (50,71) 
«C:PRINTEL, "nome"; PSET (50, BO) 
SCSPRINTHI, 
";PSET(50,92),C:PRINTA, “tel 
efone";PSET(50, 102),C;PRINTEL 








) 
9141 PSET(SO, 114), CLPRINTEL, " 
eapresa":PSET(50,124),C:PRINT 
Ho “iPSET( 
50,136) Ci PRINTAL, "cargo": PSE 
T(50,146) CLPRINTAL,* A 
9120 FORJ=1T0700: IFHC=300THEN 
RETURN: ELSENEXTJ:CLS: X=56:P= 
160:Y=0:L=28:0=15: BOSUBS0010: 
PSET(80,8) ,C:PRINTHI, "diverso 
Sena! 

9130 k= 32 :P= 85 Y= 52 il= 
119: 0SUBS0010 

9140 X=40 2 1Y=SBsL=18:0= 
4:BOSUB 50030:PSET(70,66),C;C 


















OLORISS PRINT, "90,00" COLORL 
9150 1=0;FORY=B7TOL4TSTEP2O;F 
ORX=40TOBASTEFZA:P= 16:L=15:C 
= 10 ;J=]+1:GOSUB 50010:PSET( 
K42,V+2) TFICÃO TRENPRINTL, 
JELSE IF J=10 THEN PRINTAS, * 

O" ELSETFU=11 THEN PRINTH, 


9151 NEXTI:NEXTY 

9160 Y=126:P=112:Y=110:L=48;C 
=14:BOSUB 50010: PSET(158,115) 
«CSPRINTAL, "AVISO; PSET (132,1 
25) CIPRINTAS, "Nao desligue": 
PSET(132,135),C:PRINTHL, “o mi 
cro.* 

9180 J= 176 :P= 1h sY= 159 GL 
=32:= 14 :BOSUR 50010 

9190 FORJ=1TOBOO: IFHi 
RETURN: ELSENEXTO: CI 
160; V=0:L=28:0=15: BOSUBS00L0: 
PSET(B0,6),C:PRINTHI, "Que tal 
uma"; PSET(BO, 16) CiPRINTAL, * 
piraaide 2º 

9195 














Did=XiP=ibiL=14 
3 TO 179 STEPLO:FO 





9200 FORJ=1TOBOO: IFHC=300THEN 
RETURN: ELSENEXTIS CLS 

920 Xe Sb sP= 168 2Y= O sL=S 
710 15 :BOSUR 50010: PSET (48, 
6) CSPRINTAL, "PRESSIONE CRETU 
RN)": PSET (68, L6),CSPRINTAL, “P 
ARA EXECUTAR Oº:PSET (68, 26), 
:PRINTEL, “PROGRAMA, * 
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9230 IFHC=300THENRETURN: ELSEI 
FINKEY$=""THEN 9230 

10000 K4=0:PP=0:LL=0:YY=0:C0= 
O;REM +++ EDITOR DE JANELAS * 
+ 

10010 COLORI,5,5:SCREENZ: 150: 
Y=0;P=48/L=48:C0=5:C=15:0=1:5 
PRITES (1) =CHR$ (255) +STRINGS (7 
+ 128): SPRITES (2) =STRING$ (7,1) 
+CHR$ (255) 

10050 BUT SPRITES, (X,V),1 
UTSPRITEZ, (X+P=7,VAL-75,1, 
10055 AS=INKEYS 

10060 IF STICK(0)=3 ANDX+P<2S 
STHENK=K+B: BOTO10050 

10070 IF STICK(0)=7 ANDXDOTHE 
NX=1-B: 607010050 

10080 IF STICK()=5 ANDY+LCIS 
ATHENV=V+;GOTOLOGSO 

10090 IF STICK(0)=i ANDY>OTHE 
Ny=y-15G0TOLOOSO 

10053 IFAS=CHR$(15) THEN COLO 
Ri: GOSUB 10900 

10094 1FHL=300THENRETURN; ELSE 
2TFHCC>O THEN ON HC GOSUB 103 
00, 10400, LOSGO, 10500, 10700: :F 
HEXD6 THEN HC=0 

10095 TF HC=b THEN GOTO 10900 
10096 TFHC=300 THEN RETURN 
10200 607010655 

10300 IF Ft4)>0 THEN SWAP X,X 
ESMAP YY,VESMAP P,PPISHAP Ly 
LL:SWAP C, CC: BOSUBSOOÃO 

10306 TF FIJI) DOTHENSWAP X, XX: 
SWAP YY,VISWAP P,PPESMAP L,LL 
1BMAP C,CCiXX=h:YY=ViPP=PiLL= 
LIELSEXI=K: VY=ViLL=L:PP=P 
10309 IF F(J)=0 OR F(J)=3 THE 
N FiDI=L:ELSEIF F(J)=1 OR FO 
)=2 THENE (9) =F(U)+ 

10310 IF F(J)50 THEN ON FIM 
GOSUE 50000,50010,50030: RETUR 
N 

10400 PUT SPRITES, (XY) 1, L:P 
UISFRITEZ, (M+P-7, V4L-7),1,2 
1041G IF STICK(0)=3 ANDX+P<25 
STHENP=P+8:6OTO10400 

10420 IF STICK(0)=7 ANDP>L6TH 
ENP=P-B; 607010400 

10430 IF STICK(0)=5 ANDV+LCI9 
ATHENL=L +1: BOTD10400 

10480 IF STICK(0)=1 ANDL>BTHE 
NL=L-1:607010400 

10441 IFHE=300 THENRETURN 
10450 TFINKEV$S)CHR$ (13) THEN 
10400: ELSEF (1)=F(J)-1: TFF (O) 


qhiP 
z 





10900 Pi; 





=J: SWAP P,PILSHA 
PL, PZ:P=88:L=112:60SUB50000: 
PSET(I+6,V+2),CEPRINTEL, "MEN 
UPLPSET(X+S, Y+16),CEPRINTAL, 
Fi-tipo":PSET(J+5, +28) ,C:PRI 
NT$L, “FZ-taman, "EPSET(XAS, V+4 
6), CEPRINTSL, *F3-cor* 

10901 PSET(X+5, V+52),CEPRINTE 
1,ºF4-outra": PSET(X+5,Y+64),C 
iPRINTHL, "FS-todas*:PSET(X+S, 
Y+76),C:PRINTEI, "Fó-tia” 
10902 TFP1=500THENPI=0: RETURN 
10910 IF INKEY$=""THEN 10910 
10920 SHAPE, CC: GOSUBS0040: SMA. 
PO COISWAP P,PLISMAPL,P2:IF F 
(9)>0 THEN F(D)=F(D)=1:TFF(D) 
<1 THEN F(J)=3 

10930 TFXX=0 THEN Xk=0: IFYY=0 
THEN Yy=0 

10940 IF F(])30 THENSHAP X,XX 
SWAP Y, VV. BOSUBIOICO: SMAPX,X 
KESWAP Y, YY: RETURN: ELSERE TURN 
50000 LINECX, V)=(N4P ALI, C, E 
FSLINE(X, VI=(14P, Vel), L,BSLIN 
FOX, VAI) = OP, +12) 1SLINECX 
q VAL-BI=(I4P, V4L-B), LELINE(X+ 
P-B,VALI=(K4P-B, V+12) LSLINE( 
KAD,VAL+L)= (AP42, VALADO 1, BE 
FLINE(X4P+I, V+2)-(14P 42, VEL+Z 
3,1, BFERETURN 

50010 LINE(X, VI=(X4P, V4L),C,B 
FELINECX,V)=(U4P, VAL) A, BELIN 
ECXAZ,VALHLI=(X4P4Z, VAL+D) 1, 
BFSLINE XAP+L, V+2)-(X4P+Z, VAL 
+2),1, BFSRETURN 

50030 LINE(X, )=(I4P, AL) Cs 
FELINECK, VI=(M4P VEL), 1, BERET 
URN 

50040 LINE(X, V)-(14P, VAL! C,R 
FELINE(X, Y)-(+P VAL) SC BELIN 
ECIAZ, VALHLI=(I4P42, V4L+2),0, 
BFSLINECX4P +, Y+2)-(M4P+D, VAL 
+2) Ly BF:RETURN 

50500 HC=300: RETURN: DATALOO, 3 
111,12,27,6,0,56, 16,0,0,226,8 
+10 

50600 DELETES0500-60840 

60040 + BY RANDOLPHO SANTANA 
+ 

60500 DATAOS, 10,11,00,02,21,0 
0,03,22,60,EA,ED, 53, 62,E8,05, 
0E,FF,CD,44,00,ER,CD,4D,00,EE 
+23,13,0D 

b0510 DATAT9,FE,00,20,F0,28, 6 
0,EA,ED,58,62,EA,ED,43,54,EA, 
01,00,01,09,EB,09,ED, 48,64,EA 


3 
10820 PRINT;PRINT"1000 X= 





IF F(I)=1 THEN PRINT'50000" E 
LSE IFF(1)=2 THEN PRINT"SOOLO 
“ELSE PRINT"S0030* 

10830 IF INKEY$="" THEN 10830 
10840 NEXTI;PRINT;PRINT"FIN": 
STOP 

€L THEN F(J)=5 

10460 GOTO10300 

10500 C=0+1;1FC)15 THEN C=0 
10505 F(J)=F(J)-1:1FF(9)=0 TH 





EN FlU)=5 
10510 GOTOLO300 
10600 X(J)=KXEVCD)=YYEP(D)=PP 





LQD)=LLiC(=C 
10610 AS=INKEYS 
10615 IF STICKI0)=3 AND (FU) 
(0 AND JXTONTHEN SWAP C,CC:6 
CSUB 10680:SHAP CCC: J=0+:60 
5UB10690 

10620 IF STICK(0)=7 AND J)1 T 
HEN SWAP C,CC:GOSUB 106B0:SHA 
1:6OSUR 10690 






=0 THEN P=48:L=48; RETURN ELSE 
RETURN 

10640 GOTOLO61O 

10680 K=K(J);N=Y (US P=P(d)iL= 
LIS): IFFII)XDO THEN BOSUBS0OS 
DERETURN ELSE RETURN 

10690 X=KUJ)Y=V (9) P=PIg)iL= 
LH) :C=0(0): 1FF(0)420 THEN ON 
F(J) GOSUBS0000, 50010,50030:R 
ETURN ELSE RETURN 

10700 FOR-1=1 TOLS:X=K(I)Y=Y 
(E P=P (DLL (0) C=CAD TFF! 
1)60 THEN ONF(T) GOSUBS0000, 
50010,50030 

10705 IFHC=300THENRETURN: ELSE 
IFINKEY$="" THEN 10705 

10710 NEXTI 

10720 IFINKEY$="" THEN 10720 
10730 COLORCO: SCREENZ: X=X (1)3 
YE (O) P=P Ig) SL=L (9) C=Ctg):T 
FF(J)XDO THEN ONF(J) GOSUBS0O 
00,50010,50030; RETURN ELSE P= 
48;L=48; RETURN 

10800 COLORIS, 1, ISSCREENI: IF 
F(9)0 THEN XJ)=KKEV ID) =YVEP 
(O)=PRELCJ)=LLECCI)=0 

10810 FORI=1TOIS 

10815 IF F(1)=0 THEN GOTO 108 








16 MSXMcro 











EB, 78, FE, 00,20, 08 
60520 DATAC9,06,10, LL, FF, 11,2 
1,FF, 10,22,60,EA, ED, 53,62, EA, 
05,0E, FF, CD, 48,00,EB, CD, 40, 00 
5EB, 28, 18,00 

60530 DATAT9,FE, 00,20,F0,28,6 
0,EA,ED,58,62,EA,ED,43,64,EA, 
01,00,01,hF,ED, 42,EB,AF,ED, 42 
+ ED, 48,64,EA,ER,76 

bOSAO DATAFE, 00,20,07,09 
60500 DATASE, 01,32, E,EA, 21,1 
8,02,22,E8,EA,22,E4,EA,2A,EA, 
EA,7E,21,00,00, 14,00 

BO61O DATASF, 06,08, 19,10,FD, 1 
1,8F,18, 19,22,EC,EA,FD, 2h,EC, 
EA,ED, SB, E6,EA,21,00,20, 19,22 
EC EA, DD, 24, EC, EA, 06,08, FD, 7 
E,00 

60620 DATAED, 53,EC, EA, 20, EL, E 
A,CD,40, 00, 3E, IF, DD, 22,EC, EA, 
26,EC,EA, CD, 4D, 00, DD, 23,FD,23 
+43, 10,E0, ED, 53, E6,EA, 20, EA ,E 


A,23,22,EA,EA 
60630 DATATE, FE, 0D, 20,5, 23 
E, FE,0C,C8, 3A, EE, EA, 30, 32,EE, 
EA, FE, 11, CB, 22,EA, EA, 2A,EB,EA 
+01,00,01 

b0540 DATAOS,22,Eb,EA,22,EB,E 
AsC3,FD,EA 

60700 DATAO1,00,00,00, 28,78, E 
B,ED,58,7C,EB,0D, 7E,00,FE,0D, 
20,01,03,78,88,20,09,79, BR 
60710 DATAZO, 05, DD, 22,78, EB, 
9,00,23,18,E7 

B0800 DATAZI,50,03,11,00,60,7 
EsFE,80,20,05,3€,78,77,18,58, 
FE,87,20,05,3E,40,77. 18, 4F,FE 
+84 

b0BIO DATAZO,05,3E,41,77,18,4 
6,FE,89,20,05,3,49,77,18,30, 
FE, 88, 20,05,3E,4F,77,13,34.FE 
+88 

60820 DATA 20,05,3E,55,77,18, 
28,FE,8C,20,05,3E,41,77,18,22 





EE *| 


+FE,8D,20,05,38,45,77,12,19,F 
ERÊ 

40830 DATAZ0,05,3E,4F,77,18,1 
0,FE,88, 20,05,3E,41,77, 18,07, 
FE,9h,20,03,3E,55,77,23,70 
60840 DATABA, 20,99,70, BB, 20, 9 


5,09 
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2 Trim 
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Ted ce ri pas preta ue e gs e pa pt pe 
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em oem 


Desejo receber os programas abaixo relacionados pelo(s) qualfis) estou remetendo anexo um cheque nominal à Ciência Moderna Com- 
putação Ltda., Av. Rio Branco, 156 - Loja 127 - Centro - RJ - CEP 20043 no valor de Cz8 
PROGRAMAS Nº 


NOM 
END: 


CIDADE. 




















VA A A A 
PROGRAMAS 


A TABUADA 
ELETRÔNICA 


Paulo Roberto Pinheiro Elias 


Introdução: 

Existem pelo menos duas 
conições fundamentais 
para aprender matemática: 
o interesse criado pela 
relação afetiva do aluno 
com a disciplina e o 
número de exercícios 
feitos. 

Enquanto o primeiro 
destes dois itens fica 
preferencialmente a cargo 
do professor, que deve 
mostrar sempre a utilidade 
do que se estuda com 
exemplos práticos, O 
segundo (sentar para 
estudar), pode ser 


praticado dentro de casa, 
estimulado pelos pais, 
através de condições 
ambientais adequadas. 

Conveninentemente 
orientada, a criança pode 
usar o micro para estudar 
e fazer exercícios de 
qualquer natureza, 
aprendendo assim a 
dominar a máquina e a 
criar com ela, um 
ralacionamento mais 
íntimo e menos xenófobo 
com a informática. 

É importante que se 
diga que o uso do 


computador já é, “per se”, 
um exemplo notável da 
aplicação do estudo da 
matemática, e através dele 
os pais podem demonstrar 
com criatividade como é 
importante para a 
construção do raciocínio 
lógico o estudo das 
ciências exatas. 

Na primeira parte deste 
artigo, será mostrado um 
programa que substitui O 
tradicional livrinho da 
tabuada, oferencendo, . 
paralelamente, exercícios 
de fixação. 

A Tabuada Eletrônica: 

O programa apresenta um 
menu principal, a partir do 
qual aparecem outros 
menus, cada qual 
permitindo sempre a 
mudança na escolha da 
opção. Tratando-se de um 
programa para crianças, foi 
conveniente testar 
possíveis erros na entrada 
de dados do tipo “sim” ou 
“não” (s/n), retornando à 
perguntar caso a opção 
não seja satisfeita (“caps 


lock”, neste caso, deve 
estar desativado). 

A tabuada que o 
computador constrói é 
réplica exata do livrinho 
que as crianças costumam 
adotar nas escolas. Não há, 
no entanto, limitação para 
escolha do número a 
partir do qual será feita a 
tabuada. Se isto for julgado 
inconveniente, basta 
acrescentar uma linha do 
tipo: 
IFN <10 THEN GOTO 
> nº da linha que contém 
o input de N< em seguida 
à cada entrada de dados 
para a formulação da 
tabuada. 

Na opção de exercícios, 
sempre que um erro for 
cometido, haverá um 
retorno para repetição da 
conta. Quando uma lista 
de operações termina, o 
programa retorna ao menu 
correspondente, 
permitindo à criança 
mudar de opção ou teclar 
para o encerramento do 
programa, se estiver 
cansada. 





10 REM PROGRAMA PARA 
ESTUDAR TABUADA 

15 REM autor:Paulo R 
oberto P. Elias 

20 SCREENO:COLORL,8: 
KEY OFF 

30 LOCATE10,11:PRINT 
"PABUADA ELETRONICA” 
40 FOR T=1 TO 1000:N 
ERT T 

50 CLS:COLORI,10 

60 LOCATE12,8:PRINT” 
TECLE A OPÇA 
70 LOCATEO,11:PRINT” 
1 - ESTUDAR A TABUAD 
ar 

80 LOCATEO, 14:PRINT” 
2 - FAZER EXERCICIOS 
” 





85 LOCATEO,17:PRINT” 
3 - FIM DO PROGRAMA” 
90 AS=INKEYS 

100 IF A$=""THEN 90 
110 IF A$="1"THEN GO 
TO 130 


120 IF AS$="2"THEN GO 
TO 650 

125 IF A$="3"THEN GO 
TO 1150 

130 CLS:COLORI,5 

140 LOCATE10,5:PRINT 
"ESCOLHA A TABUADA:" 
150 LOCATEO, 8: PRINT” 
1 - DE SOMAR” 

160 LOCATEO,10:PRINT 
"2 - DE DIMINUIR” 
170 LOCATEO,12:PRINT 
"3 - DE MULTIPLICAR” 
180 LOCATEO,14:PRINT 
"a — DE DIVIDIR” 

185 LOCATEO, 16:PRINT 
"5 - QUERO ESCOLHER 
OUTRA OPÇAO” 

190 IS=INKEYS 

200 IF 1$="" THEN 19 
o 
210 
oTO 250 

220 IF 1$="2"THEN GO 
TO 350 


IF I$="1" THEN G 


230 IF 1$="3"THEN GO 
TO 450 


240 IF I$="4" THEN G 
oTo 550 

248 JE lS="00 
oTO 50 

250 CLS: INPUT"QUE NU 
MERO DESEJA SOMAR" ;N 
260 LOCATE14,5:PRINT 
"TABUADA DE ";N;":” 


THEN G 


270 FOR I=1 TO 10 
280 R=I+N 

290 PRINT N;"+";I;"= 
"5R 

300 NEXT I 

310 LOCATEO,18: INPUT 


"DESEJA OUTRO NUMERO 
(s/n)";R$ 

320 IF R$="s"THEN 25 
[o] 

330 IF R$="n"THEN 13 
o 

340 IF R$S<>"s"OR RS< 
>"n"THEN GOTO310 

350 CLS: INPUT”QUE NU 























MERO DESEJA DIMINUIR 
"5N 

360 LOCATEl4,5:PRINT 
"TABUADA DE ";N;":” 


370 FOR I=N TO 10+N- 
1 

380 R=I-N 

390 PRINT 1;"-";N;"= 
”";R 

400 NEXT I 

410 LOCATEO, 18: INRUT 


"DESEJA OUTRO NUMERO 
(s/n)";RS 

420 IF R$="s"THEN 35 
(o) 

430 IF R$="n"THEN 13 
(o) 

440 IF R$<>"s"oR R$S< 
>"n”"THEN GOTO410 

450 CLS: INPUT"QUE NU 
MERO DESEJA MULTIPLI 
CAR”";N 

460 LOCATE 14,5:PRIN 


T"TABUADA DE ";N;":” 
470 FOR I=1'“TO 10 
480 R=IXN 

490 PRINT N;"x";1;"= 
";R 

500 NEXT I 


510 LOCATEO, 18: INPUT 
"DESEJA OUTRO NUMERO 
(s/n)";R$ 

520 IF R$="s”THEN 45 
0 

530 IF R$="n”THEN 13 
(o) 

540 IF R$<>"s"OR R$< 

n"THEN GOTO5S10 

550 CLS: INPUT"QUE NU 
MERO DESEJA DIVIDIR” 
:N 

; 

560 LOCATEI4,5 
"TABUADA DE ";N; 

570 FOR I=N TO N410Q 
STEP N 

580 R=I/N 

590 PRINT 1;"5";N;"= 
";R 

600 NEXT 1 

610 LOCATEO,18: INPUT 
"DESEJA OUTRO NUMERO 
(s/n)";R$ 

620 IF R$="s"THEN 55 

0 

630 IF R$="n"THEN 13 






EEN 


o 

640 IF R$<>"s"OR RS< 
n"THEN GOTO610 

650 CLS:COLOR1,13 

660 .LOCATEIO,5: PRINT 

"ESCOLHA O EXERCICIO 

em 


670 LOCATEO,10:PRINT 
"1 - DE SOMAR” 

680 LOCATEO,12:PRINT 
"2 — DE DIMINUIR” 
690 LOCATEO,14:PRINT 
"3 — DE MULTIPLICAR” 
700 LOCATEO, 16: PRINT 
"a - DE DIVIDIR" 

710 LOCATEO,18:PRINT 
"5 -— QUERO ESCOLHER 
OUTRA OPÇÃO” 

720 Z$=INKEY$ 

730 IF Z$="" THEN 72 
[o] 

740 IF ZS= 
TO 780 
750 IF 
TO 870 
760 IF 
TO 970 
770 IF 
TO 1060 
775 IF Z2$="5"THEN GO 
To 50 

780 CLS:LOCATEI6,0:P 
RINT"EFETUE:” 

781 LOCATE 16,1:PRIN 


"1"THEN GO 


Z$="2"THEN GO 


ZS="3" THEN GO 


Z$="4" THEN GO 


790 FOR I=1 TO 9 

800 FOR X=I TO 10 
810 R=I+X 

820 PRINT 1;"+";X;"= 
"; : INPUT Y:PRINT 

830 IF Y=R THEN PRIN 
T"ACERTOU !":PRINT 
840 IF Y<>R THEN PRI 
NT”"ERROU !”:PRINT:GO 

TO 820 

850 NEXT X,I:PRINT”F 
IM DO EXERCICIO":FOR 
T=1 TO 600:NEXT T 

860 GOTO 650 

870 CLS:LOCATEI6,0:P 

RINT"EFETUE:” 

871 LOCATE16,1:PRINT 
880 FOR I=1 TO 9 

890 Z=I-1 


900 FOR X=I TO 10+Z 

910 R=X-I1 

DO PRENTO 
"; : INPUT Y:PRINT 

930 IF Y=R THEN PRIN 

T"ACERTOU !":PRINT 
940 IF Y<>R THEN PRI 

NT"ERROU !”":PRINT:GO 
TO920 

950 NEXT X,I:PRINT”F 
IM DO EXERCICIO" :FOR 
T=1 TO 600:NEXT T 
960 GOTO 650 

970 CLS:LOCATE16,0:P 
RINT"EFETUE:” 

Edi LOCATEIS, 1:PRINT 
980 FOR I=1 TO 9 

990 FOR X=1 TO 10 
1000 R=1*X 

1010 PRINT 1;"x";X;" 
="; : INPUT Y:PRINT 
1020 IF Y=R THEN PRI 
NT"ACERTOU !":PRINT 
1030 IF Y<>R THEN PR 
INT”ERROU !":PRINT:G 

OTO1010 

1040 NEXT X,I:PRINT” 

FIM DO EXERCICIO”:FO 
R T=l TO 600:NEXT T 
1050 GOTO 650 

1060 CLS:LOCATE16,0: 
PRINT"EFETUE” 

1061 LOCATELO, 1:PRIN 


1070 FOR I=1 TO'9 
1080 FOR X=I TO 10*I 
STEP I 

1090 R=X/1 

1100 PRINT X;">";1;" 

="; : INPUT Y:PRINT 
1110 IF Y=R THEN PRI 

NT”"ACERTOU !":PRINT 
1120 IF Y<>R THEN PR 

INT”ERROU !":PRINT:G 

OTO1100 

1130 NEXT X,I:PRINT” 

FIM DO EXERCICIO” :FO 

R T=] TO 600:NEXT T 

1140 GoTo 650 

1150 CLS:LOCATE17,12 
: PRINT"FIM” 

1160 FOR T=1 TO 1000 
:NEKT T:CLS:COLORIS, 
1,1:KEY ON: END 








LL LA 


PROGRAMAS 


DESENHOS 


E EFEITOS SONOROS 


Leonardo Fontes 


Esta série de programas destina-se à de- 
monstração do uso de ci ndos grá- 
fi sonoros como LINE, SOUND e 









São quatro programas bem outros 
que você pode incluir em programas 
menores como rotinas úteis, principal- 
mente jogos de ação. 





Programa 1 
10 SCREEN 2: 


20 H=255 
30 V=191 
46 LINEI2SS-H, 188-4)=(H,W) 55 B 





ORIS,L 








90 CS INTURND(=TINED+15)+1 

100 SOUND 0, 200: S0UNDA, O: SOUN 
Dê, 20: SOUND, 233: SOUND, 16:50 
UNDI, 16: SOUND 1, 80: SOUNDAZ, 1: 
SOUNDI3,10 

110 COLOR, O 

120 GOTO 80 


Programa 2 


tes 

2 KEY OFF 

4 INPUT” DE UM VALOR PARA G( 
O ATE 254) "56 

9 COLOR 15,1,1 

10 SCREEN 2 

14.650 

12 HeH+2 

13 IF Hs THEN 20 








14 LINE(129,0)-(H,92),15 
15 LINE(129, 192)-(H,92),15 
16 GOTO 12 

20 FOR F=0 TO 255 

30 PSET(O,F),15 

MO PSETIF,0),15 

M PSETt2SS,F),1S 

42 PSETIF, 191,15 

45. MEIT E 

50 FOR R=0 TO 450;NEXT 
80 BOTO 1 


Programa 3 


10 CLS 

20 SCREEN 2:COLORIS, 
1 

30 FOR J=1 TO 890 
40 FOR L=0 TO 120 57 
EPIs 

50 FOR K=0 TO 140 ST 
EP 3 

60 CIRCLEIK,LI,15,4 
70 CIRCLE(L,K),15,7 
80 CIRCLE(K,L) 15,15 
90 NEXT E,L,) 


Programa 4 


10 €15 
20 SCREEN 2:COLORI, 1 


5 

30 FOR J=1 TO 800 
40 FOR H=0 TO 90 

50 FOR T=1 TO 15 

60 CIRCLE(115,90),H, 
Í 

TO NEXT T 

80 NEXT R 

90 NEXT d 





20 MSX Micro 





CALEIDOSCÓPIO 


Marcio Esteves 


Este programa imita o funcionamento 
de um caleidoscópio. A tela é divida em 
quadrantes e um número é gerado ran- 
domicamente e colocado em cada um 
dos quadrantes, dando a sensação de 
“espelhos”. 

Quanto mais quadrantes você esco- 
lher mais demorado será o programa e 


quanto menos quadrantes maior terá de 
ser o círculo e mais círculos por qua- 
drante. O usuário tem, portanto, con- 
trole sobre: 

Formato: Quadrados ou círculos — li- 
nha 132 

Tamanho: de quadrado ou círculo — li- 
nha 137 


Número de quadrantes (2 a 36) — linha 
151 

Cores de fundo e de borda — linha 
1530 

Com isto você obter efeitos variados e 
bastantes interessantes atuando sobre 
estas rotinas. 





1 REM eesseeeRARRRO SUB 1500 


70 FOR Rat TO P 


90 NEXT R "PO 
100 SCREEN 1 


102 COLOR 41,1,12 O THEN 170 


PRESSIONE QUALQUER 





) 170 CLS:PRINTEPRINT 
190 INPUT "QUANTOS C q! THENMSELSECIACLE( EN 450 
80 DD=INTIRND(1)4P)+  IRCULOS POR QUADRANT AC), TAM), Rs CI 670 LINE(67,1471)-(20 890 RETURN 
P E VOCE QUER (2 A 200 440 IF QW$="C* OR OW 2,191),10,BF 

680 PSET(77,181),CT 
490 COLOR CT 

700 PRINTH,* OUTRA 
VEZ (S/N)! 
+LOMDI-IANDAR,ZeN)a 705 TF INKEV$="Nº OR 1530 INPUT "ESCREVA 
INKEY$="nº THEN 100 RESPECTIVAMENTE AS C 


200 IF POX2 OR PO520  Y),T(W)),C1 


105 PRINTSPRINTEPRIN 205 COLOR CF,CR 
T"AD SINAL DA MUSICA 210 SCREEN 2,3,0 
220 TF M$="S" OR W$=  R,CI,BF 


O REM CALEIDOSCOPIO “nº THEN 125 ELSE BO 270 ACI)=INTIRND(L)A  S1O ZUT)=U(BENZ)=1)= 735 LINE(O,0)=(127,9 


No) Ut) 


2 REM + + 25 CLSSPRINTIPRINT 280 FOR T=2 TONSTE 520 ZUTAI=((BANDI=1 740 LINE(127,95)-(25 
3 REM + DESENHOS + 126 INPUT! ESCREVA RP 2 ML) 5,0),C6,BF 

4 REM + à ESPECTIVAMENTE A COR 290 A(T)=((BENI)-1)- 530 B=B+2 750 LINE(127,950)-(2 
S REM A COM + DO FUNDO E DA BORDA ACI) 540 NEXT T 55,191) ,CH,BF 

6 REM + + DA TELA "SCFLCRICT= 300 AUTHL)=((RENS)=1 550 CI=INT(RND(L)HI6 750 LINE(A27,95)-(0, 
TREM + SAE] DAI) ) 191) ,C0,BF 

8 REM + 4 130 CLSPRINTIPRINT 310 B=B+2 560 FOR Y=1 TON 770 RETURN 

9 REM E É 132 INPUT "VOCE QUER 320 NEXT T 570 FOR N=1 TON TBO COLOR 15, 1,12 
LO REM + MARCIO + DESENHOS COM CIRCUL 330 B=2 SBO IF OW$="D" OR GM 790 GOTO 60 

LI REM + 4 OS OU QUADRADOS (C/O 340 ZIL)=INTIRNDILE $="q" THEN GOTO 591 800 REM MUSICA DE E 
12 REM A ESTEVES é) "OMS nz ELSE CIRCLECA(Y), LIM NCERRAMENTOS 

13 REM + + 135 CLSPRINTEPRINT 350 FOR T=2 TON STE )),C1 B1O PLAV"t2MOLGVIZ!, 
14 REM esesseneeeee 137 INPUT TAMANHO DP 2 590 LF QM6="C" OR QU *T240L249! 

15 CLEAR O CIRCULO OU QUADRAD 360 ZUT)=(BAND)=1)=  $="c" THEN PAINT (AC 820 PLAVABCD", "EGE! 
18 ON STOP BOSUR 100 O (0.1 A 100) “GR T(1) VI, TM)) O BJO PLAV"GFGDEGAR", " 
OsSTOP ON 140 IF Re.1 OR R5100 370 TUTAL)=((BND)-L 591 IF QH$="0" OR OM EE! 

19 KEY DFF THEN 135 JeZet) $="q" THEN LINE (A(Y 640 PLAVMACDEEA” 

20 DIN A(100) 150 CLS:PRINTEPRINT 380 B=642 DLCMDD=(ANV)AR, TU) 850 PLAVSFGADEACHAS, 
30 DIM 24100) 151 INPUT "QUANTOS O 390 NEXT T +RD, CI, BF "DED" 

o CLs UADRANTES VOCE QUER 400 CI=INTIRND(L)4L6 600 NEXT H 860 PLAY" BGABOTDCCED 
50 OPEN “GRPS! FOROU (2436) “;N , 610 NEXT Y "o g6C! 

TPUTASAL 160 IF NC2 OR N536 T 410 FOR Y=1 TON 630 BEEP 670 PLAV"EDCRAGDGFG" 
dO P=INTIRNDCTIMEDES MEN 150 420 FOR H=1 TON 640 BOSUE 800 «RED! 


430 IFQHS="0"0RQH$=" 


$="c" THEN PAINT (A( 


441 TF QN$="D" OR QH 
="q" THEN LINECA(Y) 


TECLA": PRINT: PRINT "5" THEN GOSUB 730 450 NEXT N º DRES DOS 4 FUNDOS E 
106 REM 4DADOS INICI 230 REM *CALCULOS* 460 NEXT Y 710 IF INKEV$="S" OR DA BORDA *SCF,C6,CH, 
AISe 235 N1=256/N 480 B=2 INKEY$="5" THEN 780 CJ, CR 

140 INPUT "VOCE QUER 240 N2=192/N 490 T(L)=INTIRND(I)+ ELSE GOTO 705 1540 CT=1 

À TELA EM 4 CORES ( 250 REM +EXECUCAD+ N2) 720 GOTO 20 1550 RETURN 


650 IF INKEV$=" * TH 280 PLAY"EO7DCOSBAGD 


5), CF,BF 


GFAG2", "CCADO! 


1000 SCREEN 1:COLOR 
11,1,12:END 

1500 CLS 

1510 PRINT 

1520 PRINT 








S/N) "HS 255 FOR TJ=1 TOPO 500 FOR T=2 TON STE 730 REM 4TELA EM 4 C 
120 TF N$="Nº OR H$= 260 B=2 Pis RES 
MSXMicro 2 


LULA 


PROGRAMAS 


TABELA 


PERIÓDICA 


ELETRÔNICA 


Joseilton Alves Ferreira 


Este programa é de grande utilidade pa- 
ra estudantes de primeiro grau no estu- 
do de química, em particular na utili- 
zação da Tabela de classificação perió- 
dica dos elementos. 

O programa está dividido em sete 
itens: 
Classificação periódica — Onde é digi- 
tado o símbolo do elemento químico, 
pressionado RETURN e o computador 
fornecerá todos os dados sobre aque- 
le elemento como nome do elemento, 
número atômico, massa atômica, sím- 
bolo e quantidade de elétrons nas ca- 
madas eletrônicas. 

O único detalhe que foge da norma 
é que o símbolo e este não existir na ta- 
bela periódica, ocasionará um erro de 
índice fora do limite. 
Ânions — o micro fornecerá os ânions 
rotativos e seus respectivos nomes. 
Cátions — serão apresentadas duas op- 
ções com o nome dos cátions e seu 
símbolo representativo. 
Hidrogenoânions — o micro fornece- 
rá os ânions de hidrogênio, seu nome 
usual e o nome oficial segundo IUPAC 
Formulação de ácidos — opção esta 
que vai detalhar exemplos entre ácidos 
e ânions, sua propriedade e fórmula ge- 
ral 


Formulação de bases e sais — onde o 
usuário terá duas opções a fazer, tendo 
como resultado duas definições, con- 
ceitos e exemplos. 

Solubilidade em água — onde serão 
mostrados os ânions solúveis e insolú- 
veis trazendo observações para Os ca- 
sos de compostos solúveis e insolúveis. 


2 MSXMcro 








5 REM AERRERELERERHREREE 

em 

10 REM + 
+ 

15 REM + 
+ 

20 REM + 
+ 

25 REM + 

NA + 

30 REM + 
+ 

35 REM + 
4 

40 REM SARRRRRRRRIRERERERRE 

+ 

45 REM 

50 CLS:BOSUB 4330 

55 FOR I=1 TO 9000:NEXT 

60 OPEN"GRP: "FOROUTPUTASS1 

55 POKES4683!, 1: SCREENS, 3:COL 

0R15,1,7:FOR D=0 TOSO:COLOR D 

+JiFRESET (90,75): CLS:PRINTHI, 

10-DEPLAY"V9FT"SFORS=0TOSSO:N 

EXT: NEXT: CLOSE: GOTO 70 

TO SCREENO:KEYOFF 

75 CLEAR:COLORIS,! 

80 CLS:PRINTTAB(1); STRINGS (37 

345): PRINTTAR(1)5CHR$ (45); TAR 

(12); "MENU DE OPCOES"; TAB(37) 

+CHR$ (45): PRINTTAR(1) STRINGS 

137,45): PRINT: PRINT 

B5 PRINTTAB(5);"(01) - CLASSE 

FICACAO PERIODICA" 


TABELA PERIÍDICA 


JOSEILTON & ADRIA 


(JANEIRD/1987) 









90 PRINTTAB(S);" (02) - ANTONS 
" 


95 PRINTTAB(S)5"(03) - CATION 
g 

100 PRINTTAR(5);"(04) - HIDRO 
GENDANIONS" 

105 PRINTTAB(S)5" 05) - FORMU 
LACAO DE ACIDOS" 

110 PRINTTAB(5)5" (06) - FORMU 
LACAO DE BASES E SAIS" 

115 PRINTTAR(S); (07) - SOLUB 
TLIDADE EM AGUA" 

120 PRINTEPRINTTAR (5); 
INPUTSUA OPCAO i"sAR 

125 IF AACI OR ARDTTHEN PRINT 
TARIS): INPUT "Redigite opfDo"; 
ARSBOIO 125 

130 PRINT; PRINTTAB (5): INPUT " 
CONFIRMA (S/N) "SAAS 

135 TF AAS="NºOR AAS="nº THEN 
EE] 

140 IF AAt="S"OR AAg="s"THEN 

145 

145 REM E DESVIOS ++ 

150 TF AB=! THEN COLOR 1,11:6 
TO 185 

155 IF AA=2 THEN COLORIZ, 15: 

oro 2455 

160 IF AA=3 THEN COLOR 4,15:6 
oTO 3015 

165 IF BA=4 THEN COLOR 15,4:6 
0T03485 

470 IF AA=5 THEN COLOR 1,3:60 
TO 3715 

















475 IF AR=6 THEN COLOR 1,9:60 
TO 3790 

180 IF AA=7 THEN COLOR 1,12:6 
TO 3950 

185 REM ++ CLASSIFICAÇAO PERI 
ODICA 

190 CLS:PRINTTAB(1);STRINGS (3 
7,205):PRINTTAB(1) ;CHR$ (202); 
TAB(7); "CLASSIFICAÇAO PERIODI 
CA"sTAB(37) ;CHR$ (202): PRINTTA 
BOI) STRINGS(37,206) 

195 DIM B$(105);DIM C$(105) 
200 BotA)="H" 





215 B$(4) 
220 B$(5)="B* 
225 Bsl6)="0" 
230 B$(7)="Nº 
7 Boregs="0" 
240 BA(9)="F" 
DAS B$C10)="NE” 
250 BoCLL)="NA! 
255 Bo (12)="N6" 
260 BSCI3)="AL? 
1º 





285 B$(18)="AR* 
290 BO I9)="K" 





305 B$(22)="TI* 
MO BS(23)="y" 





335 B$(28)="NI* 
340 B$129)="CU* 





355 B$(32)="6E" 
360 B$133)="AS" 
3o5 BS(34)="5E* 
370 BM35)="BR" 
375 BOID6)="KR" 
380 B$(37)="RBº 
385 BS(38)="SRº 
390 BS(3D="y" 

395 B$(40)="IR" 
400 B$(4L)="NB* 





415 B$(44)="RUM 
420 BSL4S)="RH" 
425 BS(46) 
430 B$(47) 
435 B$(48) 
440 BS(49)="IN* 
445 B$(50)="5N" 
450 B$(51)="58" 
455 B$(52)="TE* 
460 B$(53) 
465 B$IS4)="1E* 
470 BS(SS)="05" 
475 B$(Sb)="BA 
480 B$(S7i="LA* 








485 B$(58)="CE” 
490 B$(S9)="PRº 
495 B$(60)="ND* 





510 B$(63)="EUº 
515 B$(64)="6D" 





540 B$(69)="TH* 
545 B$(70)= 





550 B$(7L)="LU" 
555 B$(72)="HF* 





565 B$(74)="Nº 
570 B$(75)="RE* 
s7s B$(7b1="08" 
580 BS(77I="1R* 


585 B$(7B)=*PT* 
590 R$ (79)="AU” 
595 B$(80) 





600 BS (BLb=*TL* 
605 B$(82)="PB* 
610 BS(B3)="BI* 


615 BS 1B4)="PO* 





625 BO(B6)="RN" 
630 B$87)="FR" 





650 BS(91)="PAS 
655 B$(92)="U" 
660 BS(93)="NP" 

"a 
TO BS(9S)="AN* 
675 B(96)="CHº 
680 B$(97)="BK" 








700 B$(104)="ND" 
705 B$(102)="NO" 
MO BS(103)="LRº 
715 BOCLOM)="KU" 





725 Co(1)="Hidrogenio" 
730 C8(2)="Helio" 

735 CH3)="Litio* 

740 C6(4)="Berálio" 
745 CStS)="Boro* 

750 C6(6)="Carbono* 





7b0 C618)=*Oxigenio” 
765 C6(9)="Fluor* 

770 Co(10)=" 
775 CSA) 





780 C6(12)="Ragnesio! 
785 CS(13)="Aluainio* 
790 Cs(14)="Silicio" 
795 Co(15)=*Fostoro” 





BIS C6(19)="Potassio* 
E20 C$120)="Calcio* 
25 Co(21)="Escandio* 





830 Co422)="Titanio" 
835 CS(23)="Vanadio* 
840 C$(24)=*Cromiot 
845 C6(25)="Ranganes* 
850 C$(26)="Ferro* 
855 C$(27)="Cobalto” 
BO C$(28)="Niquel* 
845 C$(29)="Cobre* 
870 Cs (30)="Tinco* 
875 Co(31)="Balio* 





930 C$(42)="Nolibidenio* 
935 CH(43)="Tecnecio" 
940 C$(44)="Rutenio! 
945 C$(45)="Rodio* 
950 C6(46)="Paladio* 
955 C6147)="Prata* 
960 C6(48)="Cadaio* 
965 C6(49)=" Indio" 
970 C$(50)="Estanho” 
975 CS(51)="Antimonio” 
980 CH(52) 











995 C6(55)= 

1000 Co (5b)="Bario* 

1005 C6(57)="Lantanio 
1010 C$(58)="Cerio" 

1015 C8(59)="Praseodimio" 
1020 C8(60)="Neodiaio" 
1025 Ce(61)="Pronecio* 
1030 C$(62)="Samario" 





1050 C6(bb)="Disprosio" 
1055 C$67)="Holaio* 
1060 CH (68)="Erbio" 
1065 C6169)="Tulio* 
1070 C&(70)="Iterbib" 
1075 C&(71)="Lutecio* 
1080 C$(72)=" 
1085 C$(73)=' 
1090 C8474)="Tungstenio” 
*Renio! 

1100 C8(76)="Osaio" 

1105 C$177)="Iridio" 
1110 C$(78)="Platina! 
115 C6(79)="Quro” 
"Mercurio" 
1125 Cs(81)="Talio* 
1130 08(82)="Chunbo! 















1135 CS(83)="Bisauto” 
1140 C$(84)="Polonio* 
1145 CO(B5)="Astato* 




















1175 Co(9l)="Protactinio” 
1180 C6(92)="Uranio" 

1185 C8(93)="Neptunio" 
1190 Co (9 Tutonio* 
1195 C5(9 










1220 C$(100) 
1225 Cstior 
4230 C$(102) 
1235 CS(103)=" 
1240 C$(104)="Kurchatovio? 
1245 C$(105)="Hahnio" 

1250 REM 

1255 PRINTEPRINT: PRINTTAB(S) ; 
“Digite o simbolo do elemento 
quísico procurado*:PRINT:PRI 
NTTARES): INPUT" Simbolo = "FAR 
t 

1260 DIM D$(1051 

1265 D$(1)="4" 

4270 D$(2)=": 
1275 DeG3i=2-1" 
1280 D$(4) 
1285 D$(5)="; 
1250 D$(6) 
1295 D$(7)=*2+ 
1300 0 (8)=42-6* 
1305 D$(9) 
1310 D$C10) 
1315 D$(I1)= 
1320 D$(12)= 
1325 D$(13)=*2-8) 
1330 D$(14)= 
1335 D$(15)="2- 
1340 Dé (iéi 


















1360 D$420) 
1365 D$(21 
1370 D$ (22 10-2" 
1375 D$(23)="2-8-11-2" 








1465 D$(41 
1470 D$ (42) 
1475 DS(43 
1480 D$ (44 
1485 D$(45! 
1490 Dé (46) 





1500 D$(48)="2-8-18-18-2" 
1505 D$(49)=*2-B-18-18-3* 
1510 D$(50)="2-8-18-18-4" 
1515 D$(51)="2-B-18-18- 
1520 D5(52)="2-B-18-18-/ 
1525 D$(53)="2-8-18-18-7* 

1530 D$(54)=*"2-B-18-18-B" 

1535 D$(55)="2-8-18-18-9-1" 
1540 DS (56)=*2-8-18-18-8-2º 
















2-8-18-21-8-2* 
1560 D$(60)="2-8-18-22-6-2* 
=*2-8-18-23-8-2* 
18-24-8-2" 


1585 D$(65)="2-8-18-2]-8-2º 
1590 D$(66)="2-8-18-28-8-2º 





1615 D$(71)="2-8-18-32-9-2º 
1620 D$(72)="2-B-18-32-10-2* 
18-32-11-2* 
2-8-18-32-12-2" 










1665 D$(B1)="2-B-18-32-18-3" 


1670 D$(82)="2-B-18-32-. 
1675 D$(B3)="2-8-18-32-1 






1690 DS (86)="2-8-18-52-18-8" 
1695 D$(87)="2-8-18-32-18-8-1 


E) D$(88)="2-8-18-32-18-8-2 
ros D$(89)="2-8-18-32-18-9- 
uu D$(90)="2-8-18-32-18-10 
HE D$(91)=*2-8-18-32-20-9- 
1720 D5(92)="2-8-18-32-21-9- 
1725 D$(93)="2-8-18-32-22-9- 
1730 D$(94)=*2-8-18-32-23-9- 


1735 D$695) 





="2-8-18-32-24-9- 
1740 D$(96)="2-B-18-32-25-9- 
1745 D$(97)="2-8-18-32-26-9- 
1750 D$(98)="2-8-18-32-27-9- 
1755 D$(99)="2-8-18-32-28-9- 
té D$(100)="2-8-18-32-29-9 


1765 D$(101)="2-8-18-32-30-9 





24 MSXMcro 


1770 D$(102)="2-B-18-32-32-8 
2 

4775 D$(103)=*2-8-18-32-32-9 
7 

1780 D$C104)=' 
0-2" 

1785 D$(105)="2-8-18-32-32-1 
a 

1790 DIM Es (105) 

1795 
1800 
1805 
1810 Es(4)="9,01" 
1815 E6(5)="10,8" 
1820 
1825 
1830 
1835 ES (9)="19,0" 
1840 E6(10)="20,2º 
1845 EsCIt)="23, 
1850 
1855 
1860 
1865 
1870 
1875 
1880 
1885 Es(19)="39,1" 
1890 há 
1895 Es(21)="45,0" 
1900 Es(22)="47,9º 
1905 E$(23)="50,9" 
1910 Es(24)="52,0" 


1915 
1920 
1925 
1930 
1935 
1940 
1945 
1950 
1955 ES(33)="74, 
1960 ES (34)="79, 
1965 E$(35)="79. 
1970 ES(36)="83, 
1975 
1980 
1985 
1990 
1995 
2000 
2005 
2010 ES(MM)="101,1* 
DOIS Es(45)="102.9" 
2020 ES(46)="106.4" 
2025 Es(47)="107,9" 
2030 ES(4B)="112,4" 
2035 EsA9)="114,8" 





8-32-32-1 






















2040 118.7" 
2045 121,8" 
2050 127.6" 
2055 126.9º 
2060 Eita 
2065 132.9" 
2070 137.3" 
ms 138,9" 
2080 140, 1º 
2085 140.9" 





2090 Es(60)="148,2º 




















Eb(73)=180,9" 
2160 ES(74)="183,8" 





2480 ES(7A)="195,1" 
2185 ES(79)="197,0" 
2190 ES(B0)="200,6" 
2195 Es(81)="204,4" 
2200 E9(82)="207.2" 
2205 E6(83)="209.0" 





2230 Es(28)="226,0" 
2235 ES(B9)="(227)" 
240 ES(90)="232,0" 





2285 Es(99)="(254)" 
2290 ES(100)="(254)" 
2295 ESC1OL)="(256)" 





N6$42,42] 

2385 PRINTTAB(1) STRINGS (2,42 
iTARIT6) STRINGS (2, 42) 

2390 PRINTTAB(L); STRINGS (2,42 
Ii TAB (36) STRINGS (2,42) 

2395 PRINTTAB(1); STRINGS (2,42 
ViTAB(4); "SLabolo do elesento 
=) "GBS(T)STAB (36); STRINGS (Z 
RE) 

2400 PRINTTAB (1); STRINGS (2,42 
VE TAB(36) STRINGS (2,42) 

2405 PRINTTAB (1); STRINGS (2,42 
IS TAB(4); "Nome do elemento => 
"RCS(I);TAR(36); STRINGS (2, 42 
, 

2410 PRINTTAB(1); STRINGS (2,42 
Vi TAB(36) STRINGS (2,42) 

2415 PRINTTAB(I);STRINGS (2,42 
)STAB(4); "Nusero atomico =) 
*SISTAB(36); STRINGS (2,42) 
2420 PRINTTAB(1); STRINGS (2, 42 
Di TAB(36) STRINGS (2,42) 

2425 PRINTTAB(1) ;STRINGS(2,42 
ITAB(4); "Eletron =) *5DS( 
TS TAB (36) STRINGS (2,42) 

2430 PRINTTAB1) ;STRINGS (2,42 
15 TAB(36); STRINGS (2,42) 


2435 PRINTTAB(1);STRINGS(2,42 
)iTAB(4); "Massa atomica =) 
"GESLT);TAB(36) STRINGS (2,42 
) 

2440 PRINTTAB(L);STRINGS (2, 42 
Di TAB(36) STRINGS (2, 42) 

2445 PRINTTAB(L) STRINGS (37,4 
2):PRINTTAB(1) STRINGS (37,42) 
2450 RETURN 

2455 REM de ANIONS ++ 

2460 CLS: PRINT:PRINTTAB(I);ST 
RINGS (37,205) :PRINTTAB(1);CHR 
6202) ;TAB(13); *ANTONS (Nor mai 
5)"; TAB(37);CHR$ (202) :PRINTTA 











$(2,42):PRINTTAB(1) ;STRINGSAS 
7,42): 1F S=2 THEN 2580 

2535 IF S=3 THEN 2610 

2540 FOR Y=1 TO 2 

2545 PRINT:PRINTTAB (11); CHR$( 
95): PRINTTAB(10); "FºSTAR(20) 5 
*Fluoreto* 

2550 PRINTTAB(12) FCHRS (95) PR 
INTTAB(40); "CL"; TAB(20)5*Clor 
eto* 

2555 PRINTTAB (12) ;CHR$ (95): PR 
INTTAB(10); "Br"; TAB(20); "Broa 
eto” 

2560 PRINTTAB(11);CHR$ (95): PR 
INTTAB(L0); "1"; TAB(20); "Todet 
o! 

2565 PRINTTAB(13)CHR$ (95) 
INTTAB (40); "CIO"; TAB(2O); 
oclorito" 

2570 PRINTEPRINT: PRINTTAB(S): 
INPUT "Digite CRETURND p/ cont 





:PR 
Hip 











2575 CLS:PRINTIPRINT 

2580 PRINTTAB(13);CHR$(95):PR 
INTTAB(10)5 "CIO"; TAB(20);*Clo 
rito": PRINTTAR(13); "2" 

2585 PRINTTAR(13);CHR$ 195); PR 
INTTAB(10); "CIO"; TAB (20); "Cho 
rato"; PRINTTAR(IS); "3" 

2590 PRINTTAB(13);CHRS(95):PR 
AINTTAB (10); "CTO"FTAR(20); "Per 
clorato"; PRINTTAB (13); "4" 
2595 PRINTTAB(13);CHAS (95); PR 
INTTAB(1O!;"BrO"; TAR(20) | "Hip 
obroaito” 

2600 PRINTTAB(13) CHR$ (95) PR 
INTTAB(L0); "BrO"; TAB(2O) 
mato"; PRINTTAB (13); "3" 
2605 ; PRINT: PRINTTAB(A); INPUT 
"Digite (RETURN) p/ ver o res 
tante"; S:NEXT 

2610 PRINT: PRINTTAB(12);CHRS( 











2300 Es(102)="(254)" BID; STRINGS (37,206) pio 
2305 E(103)="(257)" 2465 PRINT:PRINT:PRINTTAB(3); SAE PRINTIADMADOS 10º; TAB(20) 
230 EMLOA="(260* "ESCOLHA SUA OPCAO! iºHipoiadito! 





235 ESL05)="(260)" 

2320 REN 

2325 KEY OFF 

2330 FOR I=1TO 155 

2335 IF ABS=B$(I) THEN 2345 
2340 NEXT 

2345 GOSUB 2365 

2350 PRINTEPRINTTAR (4); INPUT 
ALGO MAIS (S/N) *FT6:IF 76="5" 
OR 76: THEN CLEAR:GOTO 18 
5 





2355 1F 28="Nº OR 26=*nº THEN 
n 








2470 PRINT:PRINT:PRINTTAB (10) 
Fº VOL) — HALOGINIOS” 

2475 PRINTTAB(IO);"(02) - CAR 
BONO" 

2480 PRINTTAB(10);* (03) - NIT 
ROGENTO" 

2485 PRINTTAB( 10); (04) — FOS 


2490 PRINTTAB(10)5" (05) - ENE 
COFRE 

2495 PRINT: PRINTTAB(1O): INPUT 
“Opcao =)";ACS 

2500 IF AC6="1º THEN 2525 





2615 PRINTTAR(12) 5CHRS (95) PR 
INTTAB(10)5 "IO"; TAB(20); Toda 
tos: PRINTTABLAZI "3º 

2620 PRINTTAB(12);CHR$ (95); PR 
INTTAB (10); "10"; TAB(20); "Peri 
odato":PRINTTAB(12)5 "4º 

2425 PRINT: PRINT: PRINTTAB(3): 
INPUT *Deseja algo mais (5/M* 
SAES 

2630 TF RE$="S" DR AES="5* TH 
EM 2460 

2635 IF AES="Nº OR AES="nt TH 
EN7s 





| 2360 TF Th=""THENZISO 2505 TF AC$="2" THEN 2640 2640 FOR Si= 1 02 

1 2365 CLS:PRINTSPRINTTAB(I);ST 2645 CLS:PRINT:PRINTTAB(1);5T 

| RING$(37,42):PRINTTAB(L);STRI RINGS (37,42) :PRINTTAB (1) ;STRI 
N6$ (37,42) 2520 IF ACS="5* THEN 2810 N6S(2,42) ;TAR(36) STRINGS (2,4 

| 2370 PRINTTAR(1) STRINGS (2,42 2525 FOR S=1 TO 3 2:PRINTTAB (1) STRINGS (2, 4245 
DS TAR (36) STRINGS (2, 42) 2530 OLS:PRINTPRINTTAB(L);ST TAB(13)5"2 = CARBONO! TAB(36) 





2375 PRINTTAB (1); STRINGS (2,42 
JFTAB(I2); "TABELA PERIODICA*; 
TAB (56); STRINGS(2,42) 

2380 PRINTTAB(1) STRINGS (2,42 
JE TAB(12) STRINGS (6, 45); TAB CL 
FI FSTRINGS (9, 45); TAB (36) 





RINGS (37,42) :PRINTTAR(1);STRI 
NES (2, (36) STRINGS (2,6 
2):PRINTTAB(1) STRINGS (2,42); 
TAB(12); "1 - HALDEINIOS”; TAR( 
Jó) STRINGS (2,42) ;PRINTTAB (1) 
STRINGS (2,42); TAB(36); STRING 





STRINGS (2, 42) :PRINTTAB(1);ST 
RINGS (2,42); TAB (3h) STRINGS (2 
+42): PRINTTAB (1); STRINGS (37,4 
2):1F Sl=2 THEN 2690 

2650 XB$=CHR$ (95) 


2655 PRINT:PRINTTAB(11);*4%;T 


ii | 





Lisa 





MSX Micro 25 

















AB(12);XB$:PRINTTAR(10); *C" 
AB(201; 'Carbeto(aetaneto) * 
2660 PRINTTAB(L1); "2º; TAB(12) 
FNESSPRINTTAB (10); *C*;TAB(2O) 
à "Carbeto": PRINTTAB(L se 

2665 PRINTTAB(12); XB$:PRINTTA 
B(10);*CNº;TAB(20); Cianeto” 
2670 PRINTTAR(13); BS: PRINTTA 
B(10); "CND"; TAB(20)5 "Cianato* 
2675 PRINTTAB (13); XB$:PRINTTA 
B(10);*CNS";TAB(20); "Tiociana 











AB(10);"H"STAB(12);"C-D0"; TAB 
120); "Acetato": PRINTTAR(L);O 
HRS CSI) 

2685 PRINT: PRINTTAB(3): INPUT" 
Digite CRETURN) p/ ver o rest 
ante*p JS: NEXT SI 

2690 PRINT: PRINTTAB (12); CHR$( 
50); TAB (13); XBS:PRINTTAB(IO) ; 


“CO”; TAB(20); "Carbonato": PRIN 
TTAB(LZ);CHR$ (51) 
2695 PRINTTAB(13);CHR$ (50) FTA 
Ba PRINTTAB(10); *C'GTA 
B(12) TAB (20); "Oxalato":P 
RINTTAB (11); CHRS (50); TAB (43); 
CHR$ (52) 
2700 PRINTTAB( 16) FCHR$(SL)FTA 
B(17)) PRINTTAB(10); "Fe (CN 
"STAB(20);"Ferricianeto":PRI 
NTTAB(16) FCHRS (54) 
2705 PRINTTAB(16) ;CHR$ (52); TA 
B(17)5XB8:PRINTTAB(10); *FetCN 
)ºiTAB(20) ; "Ferrocianeto*: PRI 
NTTAB(16) HRS (54) 
2710 GOTO 2625 
2715 CLS:PRINTEPRINT TAB(L);S 
TRING$ (37,42) :PRINTTAB (1) STR 
ING$ 12,42); TAB (36) STRINGS (2, 
42) :PRINTTAB(I) STRINGS (2, 42) 
STAB(12) "3 - NITROGENIO*; TAB( 
J6)FSTRINGS (2,42) :PRINTTAB(1) 
PSTRINGS (2,42); TAB(36) STRING 
(2,42) :PRINTTAB(1) STRINGS (3 
7,42) 
2720 NCS=CHAS (95): NDS=CHAS (51 
E XES=CHRS (50) 
2725 PRINT:PRINTTAB(11);XD$5T 
AB(LZ)FXCS;PRINTTAB(IO); "Nº5T 
AB(20);"Nitreto* 
2730 PRINTTAB (IL); RCS:PRINTTA 
B(10);*Nº;TAB(20); "Azoteto(az 
ida) *:PRINTTAB(L1);XD$ 
2735 PRINTTAB(42);XCS:PRINTIA 
B(10); "NO"; TAB(20); "Nitrito!: 
PRINTTAB(12); ES 
2740 PRINTTAB(12) NOS: PRINTTA 
B(LO); "NO"; TAR(20);"Nitrato*; 
PRINTTAB(12);XD6 
2745 BOTO 2625 
2750 XC$=CHAS (95): XD$=CHAS IST 
DE XES=CHRS (50); XF$=CHRS (52) 
2755 CLS:FOR Y=1 TO Z:PRINT:P 
RINTTAB (1); STRINGS (37, 42) :PRI 
NTTAB (1) STRINGS (2,42); TAB (36 
ViSTRINGS (2,42) :PRINTTAB(1);S 
TRING$(2, 42); TAB(13)5 "4 = FOS 
FORO"; TAB (36) STRINGS (2,42): 

















RINTTAB(1);STRING$(2, 42); TAB( 
36) STRINGS (2,42) ;PRINTTAR(L) 
FSTRINGS (37, 42) 

2760 TF V=2 THEN 2790 
2765 PRINT: PRINTTAB(I! 
PRINTTAB(10); *Pº: 
teto" 

2770 PRINTTAB( 14); XCS:PRINTTA 
PO"STAB(20); "Hipofos 
INTTAB (11); XES; TAB CIA 








ViES 

2775 PRINTTAB(43);XES; TAB (14) 
FAC$;PRINTTAB (10); "HPO"; TAB(Z 
0);"Fosfito":PRINTTAB (13); XD$ 
2780 PRINTTAR(12);XD$;TAB(I3) 


FACS:PRINTTARCIO) “PO! 
7 'tOrto)fosfato":PRINTTAB(12) 
nes 
2785 PRINT:PRINTTAR(S): INPUT" 
Digite (RETURN p/ ver o rest 
ante"; J$:CLS:NEXT Y 
2790 PRINT: PRINTTAB (12); XCS:P 
RINTTAB(LO); "PO"; TAB(20); "Met 
afosfato":PRINTTAB(12);XD8 
2795 PRINTTABCI3)SKFS;TAB (14) 
FNCS;PRINTTAB(10); *P 0º; TAR(Z 
Pirofostato":PRINTTAB(L1) 
4 NES; TAB (13) FCHR$ (55) 
2800 PRINTTAB(13); NFS; TAR(I4) 
PNCSZPRINTTAB(1O);*P O';TABIZ 
0); "Hipofosfato": PRINTTAB (11) 
PMES; TAB (13); CHR$ 54) 
2805 GOTO 2625 
2810 ACS=CHRS (95): XDS=CHRS (51 
13 XES=CHRS (50); XFS=CHRS (52): E 
B$=CHRS (54): XH$=CHRS (56); CLS: 
FOR Y=1 TO 2 
2815 TAS=STRINGS (37,42): 186=5 
TRINGS(2,42) 
2820 PRINT: PRINTTAB(L) TAS: PR 
INTTAB (1); TRS; TAB (36) 286; PRI 
NTTAB CL); LOS; TABCI3);*S — ENX 
COFRE"; TAB(36); 288; PRINTTAB(I) 
5188; TAB (36); 288; PRINTTAB(1); 
1m 
2825 IF Y=2 THEN 2850 
2830 PRINT:PRINTTAB(LL);XESST 
AB(IZ);ACS:PRINTTAB(10)5"S*5T 
AB(20); "Sulfeto" 
2835 PRINTTAB (12); XES; TAB (13) 
FXCS;PRINTTABCIO); "SO"; TAB(2O 
h'Sulfito":PRINTTAB(12); ADS 
2840 PRINTTAB(12);XE6; TABIS) 
HICS:PRINTTAB (10); "SO"; TAB(ZO 
4"Sul fato"; PRINTTAB(12);XFS 
2845 PRINT:PRINT: PRINTTAB(S); 
INPUT "Digite (RETURN) p/ver o 
CLS:NEXT Y 
INTE PRINTTAB (13) 
NES; TAB (14); LOS: PRINTTAR(IO) 
5ºS O"; TAB(20);"tiossul fato": 
PRINTTAB(I 1); ES; 
2855 PRINTTABCI3) 5X 
FACO: PRINTTARCLO) 
0);"Persulfato":PRINTTAB(LI); 
XES;TABCL3); HS 
2860 PRINTTAB (13); XE; TAB(14) 
FNCS:PRINTTAB(10);"S D'FTARIZ 
0); "Tetrationato":PRINTTABCIL 






















JiXFS; TAB(L3); ES 

2865 GOTO 2625 

2870 CLS 

2875 PRINTEPRINTTAB (13); XD$;T 
AR(14);XCS;PRINTTAB(10);F6(S) 
A TAR(Z0); 66 (5) LPRINTTAB (13); 
D» 

2880 PRINTTAB(13);KDS;TAB(14) 
5ACS;PRINTTAB(10) FS (6); TAB(Z 
015686); PRINTTAB (13); DS 
2885 PRINTTAB(14); NX IB 14) 





j 
1XC$:PRINTTAB (10) ;FS (7); TAR(Z 
0)566(7);PRINTTAB(14);X64 

2890 PRINTTABI13); NES; TAB(14) 
PNCOEPRINTTAR( 10); FS (8); TAB(Z 


0); 6808); PRINTTAB (13); XFS 
2895 PRINTTAB(14);1 (14) 
FXC6:PRINTTAB (10) FS (9); TAB(Z 
0156819) :PRINTTAB( 12); NES 
2900 GOSUB 3000 

2905 PRINT:PRINT: PRINTTAB(131 
NES; TAB (14) FICS: PRINTTAB(10) 
HRS (10); TAB(20) 568 (10); PRINTT 
AB(IS ADS 

2910 PRINTTAB (13); XES; TAB (14) 
ADS: PRINTTAB(1O) FS (11); TARE 
20)568(11);PRINTTAB (13); XES 
2915 PRINTTAB(I3) ES; TAB(14) 
SACH:PRINTTAR ELO) FP$(12); TAB( 
201565 (12) :PRINTTAB (13); X64 
2920 PRINTTAR(IL)NCS:PRINTTA 
B(10);FS(13); TAB(20) 568 (13) 
2925 GOSUB 3000 

2930 CLS ;PRINT:PRINT 

2935 PRINT: PRINT: PRINTTAB(12) 
FNCS:PRINTTABCIO) FS (14) TAB ( 
20) 6914) 

2940 PRINTTAB(13); LESS TAB (14) 
4XC6;PRINTTAB (10) FS (15) TAB 
203768 (15); PRINTTAB (13); NFS 
2945 PRINTTAB(I3) FXESPTAB(I4) 
FXCS:PRINTTAB(IO) FS (16); TABU 
201568 (16) :PRINTTAB(13); NDA 
2950 PRINTTAB( 13); XESSTAB (IO) 
FICS: PRINTTAB(10); FS (17) TABC 
20) 6617) ;PRINTTAB (13); XD 
2955 PRINTTAB(I3) PNFSSTAB(IA) 
PNCS:PRINTTABEIO! FS (18); TAB E 
201568 (19) ;PRINTTAB(I3) NFS 
2960 PRINTTAB( 14); ES; TAB(12) 
NOS: PRINTTAR (10) FS (19); TAB( 
20);66 (19) 

2965 GOSUR 3000 

2970 PRINTTAB (13); XESSTAB (IA) 
F1C6:PRINTTAR(IO) FS (20); TABU 
20) 368420) :PRINTTAB (13); XD6 
2975 PRINTTAB(13); XES; TAB (14) 
FICS: PRINTTAB(10) FS (21); TAB( 
20); 68 (21): PRINTTAB (13); XES 
2980 PRINTTAB (13); XCS:PRINTTA 
B(10);FS (22); TAB(201 569 (22):P 
RINTTAB (13) NFS 

2985 PRINTTAB(IL); RES; TAB(IZ) 
VECS:PRINTTAB CIO! ;FS (23); TAB( 
201768 (23) ;:PRINTTAB(L1);XES 
2990 PRINTTAB(13);XE6; TAB (12) 
PACS:PRINTTAR (10); FS (24); TAD( 
20); 68(24);PRINTTAB(I3);KES 
2995 BOTO 3005 






































3000 PRINT: PRINTTAB(B): INPUT" 
Digite (RETURN) p/ continuar” 
VAZS:OLS: RETURN 
3005 GOTO 2525 
3010 PRINT:PRINT: 
3015 CLS:PRINT: 
+42): T88=STRINGS(2,42) 

3020 PRINTTAR(1); TAS:PRINTTAR 
V1)5 BSS TAB (36); BS: PRINTTARE 
1) TBSS TABS) FC" TIONS"; TAB ( 
36/5786: PRINTTAR( 1); TRS;TAB(S 
6) BS: PRINTIAB(L is TAS: PRINT: 











3025 PRINTTAB(S); "ESCOLHA ENT 
RE OS ,TENS":PRINT:PRINTEPRIN 


T 

3030 PRINTTAB(10);* (01) - Nox 
Fixo” 

3035 PRINTTAB(10);"(D2) - Nox 
Varivel* 

3040 PRINT;PRINT;PRINTTAB(10) 
2 INPUT"OPCAO =>"; 74 

J04S IF 28="1" THEN 3055 
3050 IF *18="2" THEN S310 
3055 REM ++ NOX FIXO eme 
3060 CLS:PRINTTAR (1); TAS; PRIN 
TTAB(1)S TES; TAB (36); TR$: PRINT 
TAB(1); 288; TAB(15); "NOM FIXO! 
FTAB(36); R$: PRINTTAR (1); ZR$; 

TAB(36) 5286; PRINTTAB(I) TAS 

3065 PRINT:PRINT:PRINTTAB(S) 7 
*OPCIONE: * 

3070 PRINT: PRINT: PRINTTAB(T); 
*(01) - Metais Alcalinos* 

3075 PRINTTAB(7);* (02) - Meta 
is Alcalino Terrosos* 

3080 PRINTTAB(7)5* (03) - Nao 

Metais" 

3085 PRINT;PRINT:PRINTTARI 1 
2 INPUT" Opcao =)*5714 

THEN 3110 
THEN 3205 
THEN 3260 
3105 TF T186)*1º OR TI9G*2* 

OR 2185"3" THEN 3085 

FILO REM 

SUS CLS 

3120 PRINTTAB(1) TAS; PRINTTAR 
(LD; TESS TAB (36); TES: PRINTTAR ( 
1)FLBS;TAR(L); "METAIS ALCALI 
NOS"; TAB(T6) BS: PRINTTAB(L)$ 
TBSSTAR (36); T8S;PRINTTAR(I) 7 
ho 

3125 PRINT;PRINTEPRINTTAB(27) 
Ro 

3130 PRINTTAR(10); "Litio"; TAB 
125); Li” 

HIS PRINTTAB(27) Mer 

3140 PRINTTAB(10);"Sodio"; TAB 
125); Na” 

BIAS PRINTIAR(26); "+" 

3150 PRINTTAB(10); "Potassio”; 
TABS" 

3155 PRINTTAB(27) t+" 

3160 PRINTTAB(IO); "Rubidio"; 
AB(25);"Rb":PRINTTAB(Z7); "+" 
3165 PRINTTAR(10);"Cesio"s TAR 
(25); "Cs* 

STO PRINTTAB(27) | "+ 























3475 PRINTTABL10);"Frência"s 
AB(25); "Fr" 
3180 PRINTTAB(27);*+" 
TES PRINTTAB(10); "Prata"; TAB 
Caspago 
3190 PRINT: PRINTTAB (3): 
INPUT "Quer continuar (5/N)*;H 
$ 
3195 TF H6="5" OR H$="5" THEN 
3015 
3200 IF H$="Nº OR H 
15 
3205 FOR 1=1 TO 2;:7A8=STRINGS 
(37,42): 188=STRINGS (2,42) 
3210 CLS:PRINTIPRINTIAB(L);TA 
S:PRINTTAB(L); 288; TAB(36) 5788 
:PRINTTAB (1); T88; TAR (7); "META 
15 ALCALINO TERROSOS"; TAB(36) 
+ LBS:PRINTTAB (1); 286; TAR(S6) 
TES:PRINTTAR (LISTAS 
3215 JF 1=2 THEN 3255 
3220 PRINT:PRINT:PRINTTABI27) 
vo UNTTAB (10); "Magnesio* 
STAB(25); "Ng" 
3225 PRINTTAB(27) 
AB(10);"CBlcio*s 
3230 PRINTTAB(27) 
AB(10);"EstrÊncio*;TAB(2515*5 
E 
3235 PRINTTABI27); "26º :! 
ARTIO):"Blri B (25) 
3240 PRINTTAB (27); *2+ 
AB(10);"RBdio"s TAB (25) 
3245 PRINT:PRINTTAR (3): INPUT" 
DIGITE CRETURND PARA CONTINUA 
Revo 
3250 CLS:NEXT 
3255 PRINT:PRINT:PRINTTAB(27) 
INTTAB (10); "Zinco"; TA 








THEN 

























3265 PRINTTABI27) 
AB(10); "Aluminio": 


ABLLOS; "Bi sauti 
3275 BOTO 3190 
3280 CLS: 2AS=STRINGS(37,42):7 
B$=STRINGS (2,42) 

3285 PRINTTAB(I);TAS:PRINTTAB 
(1) 7885 TAB (36) TBS;PRINTTAB( 
JS TESSTAR 14); "NSO METAIS*;T 
AB(36);ZBS:PRINTIAB CI); TES; TA 
B(36) PRINTTABCLIFTAS 
3290 PRINTSPRINT:PRINTTAB(26) 
5º+";PRINTTAB(10); *Hidroginio 
“GTAB(DS) MH 

3295 PRINT:PRINTTAB (1 
onio ou"; TAB(ZÉ 
(10); "Hidroxoni 
D'SPRINTTAB(26) 
















3305 GOTO 3190 

330 REM ++ Nox variavel ++ 
3315 CLS: TAS=STRINGS(37,42/:7 
BS=STRINOS (2,42) 


3320 FOR IA=t TO 5 

3325 PRINTTAB(L) TAS; PRINTTAS 
CEPSBSSTAR (36); ZE; PRINTTAB( 
TESS TABCIS! "NOR VARTAVEL* 
GTAR(6); TR: PRINTTAR(); 286; 
TAB(T6); LES: PRINTTAR(L)FTAS 
3330 IF TA=1 THEN 3355 

3335 IF TA=2 THEN 3380 

3340 TF TÃ=S THEN 3405 

3345 IF 1h=4 THEN 3430 

3350 IF 1h=5 THEN 3455 

3355 PRINT: PRI 
dr+"EPRINTTAB( 
rosob"sTAR(3O); 
3360 PRINTTAB (32); "+" PRINTTA 
BJ); "Cobre Ilcuprico)*TAB( 
30); "Cu" 

3365 PRINTTAB (35); "26"; PRINTT 
AB(3); “Nercurio I(mercuroso)* 
FTABCSO) FM thg )ºSPRINTTAB (33) 
e 

3370 PRINTTAR(32)"2+";PRINTT 
AB(3); "Mercurio LI(mercurico) 
"5 TABESOM; "Hg" 

3375 PRINT:PRINTTAB (4): INPUT" 
DIGITE CRETURN) P/ CONTINUAR? 
468: CLS: NEXT 

3380 PRINT: PRINT: PRINTTAB(32) 
4º PRINTTAB(3); "Duro Tlauro 
so)" TAB(30); "AU 
J385 PRINTTAR (32); *3+ 
AB(3); "Ouro [HI (aurico)*;TAR( 
30); Au” 

3390 PRINTTAB(32); "24"; PRINTT 
AB(3); "Ferro I(ferroso)";TAR 
(30); "Pet 

3395 PRINTTAB(32);"3+";PRINTT 
AB(3); "Ferro Ilfferrico)'sTA 
BIO); "1 
3400 PRINT: PRINTSPRINTTAB(3): 
INPUT'DIGITE (RETURN) P/ CONT 

























5º2+";PRINTTAB (3); Cromo Tc 
romoso) *; TAB (30); "Cr" 

3410 PRINTTAB(32);"3+":PRINTT 
AB(3)s"Crono TlIcronico) "TA 
B(30); "Cr" 

3415 PRINTTAR(32);"2+":PRINTT 


AB(3)4"Niquei 1i(niqueloso)*j 
TAB(30); "Ni" 

3420 PRINTTAB(32);"3+"SPRINTT 
AB(3);"Niquel TiTiniquelico)" 
PTAB (IO); "Ni 

3425 PRINT: PRINT:PRINTTAR(3): 
INPUT" DIGITE (RETURN) P/ CONT 
TINUAR "568: CLS:NEXT 

CASO PRINT: PRINTSPRINTTAB(32) 
ºTA"SPRINTTAR (3); "Cobalto 1 
TCobaltoso)"; TAB(30); "Co" 
3435 PRINTTAB(32);"3+";PRINTT 
ABS); "Cobalto II cobaltico) 
*STABC3O); "Co! 

3440 PRINTTAB (32); "2+";PRINTT 
AR(3); "Chumbo IT (pluaboso)*;T 
AB(3OL; "Pb" 

3445 PRINTTAB(32);"4+":PRINTT 
ABi3);"Chuabo IVplMabico)";T 
RBCIO);PRS 





















3450 PRINTSPRINT:PRINTTAB(3): 
INPUT"DIGITE (RETURN) P/ CONT 
INUAR*568:CLS;NEXT 

3455 PRINT; PRINT: PRINTTAR(32) 
FU ZA" PRINTTAB (3); anho Ii 
festanoso) "; TAB(30) 
3460 PRINTTAB(3215"4+":PRINTT 
AB(3); "Estanho IVlestanico)*; 
TAB(30); "Sn" 

3465 PRINTTAB(32);"2+";PRINTT 
AB(3)5 "NanganIs 1] (aanganoso) 
"STABISO); "nt 

3470 PRINTTAB(32)5"3+":PRINTT 
AB(3);"Manganes IIT";TAR(3O); 
of 

3475 PRINTTAB(32);"4+";PRINTT 
AB(3); Hanganes IVlnangânicol 
"5 TAB(3O); hn! 

3480 GOTO 3190 

3485 E$=HIDROGENIDANIONS!: TA 
SESTRINGS (37,4 STRINGS ( 
2,42) 

3490 CLSSPRINTTAB(1); ZAS;PRIN 
TTAR(I) R$; TAB(36);ZBS: PRINT 
TARCI);ZBS;TAR (IL) FES;TAR(36) 
4LBS:PRINTTAR(I) 5 TR8; TAB (34); 
28$:PRINTTAR(1) ; TAS 

3495 KEY OFF 

3500 PRINTTAB(I8) 
SS PRINTTAR CIO PCI) — HS" 
3505 PRINTTAB(19)5* *:PRINTTA 
BlLOD; (2) - H50 "SPRINTTAB(L 
ns 

3510 PRINTTAB(19) 
BO); 3) = H5O! 


















SIPRINTTA 
RINTTAB (19 





nte 
3515 PRINTTAB(S! 







PRINTTAB(19)5*2 *:PRINTT 
AB(10)5"(5) — HPO":PRINTIAB: 
EU 

3525 PRINTTAB(Z 
B(10);"(6) - H PO 
15 "2'STAR(DO); 
3530 PRINT:PRINTTAB(10) INPUT 
"OPCAO =)*;HI$ 
3535 IF HiS="1* 
3540 
3545 
3550 







INTTA 
RINTTAB(L 














THEN 3605 
THEN 3625 
THEN 3645 
3555 THEN 3665 
3560 THEN 3685 
3565 TF HISC"I"OR HIS)"6"THEN 
PRINTTAB(10); INPUT"DPCAO =>" 
GOTO 3565 
3570 GOTO 3535 
3575 CLS:PRINT:PRINT:PRINT:PR 
INTTAR (19); CSPRINTTABÇIA);" 
Hs 

3580 PRINT:PRINT:PRINTTAR(S); 
*(Nono)hidrogenossulfeto (+) 
ou sulfeto (sonoJacido ou bis 
sulfeto” 

3585 60SUR 3705 

3590 PRINT:PRINT:PRINTTAB(S) : 
INPUT "Deseja algo mais(S/N)*; 
Kas 

3595 IF KU$="S" OR Kgs="s"THE 














N 3485 
3b00 IF KJ$="Nº OR KJ$="nºTHE 
N7s 

3605 CLS;PRINT:PRINT: PRINT:PR 
INTTAB(18);* *:PRINTTAB(12);* 
ee HSO as tsPRINTTAB(IB); "3º 
J610 PRINT:PRINT:PRINTTAB(S) 5 
*(Mono)hidrogenossulfito (4) 

ou sulfito (sonolacido ou bis 
sulfito” 

Jói5S GOSUB 3705 

3620 BOTO 3590 

3625 CLS; PRINT; PRINT:PRINT:PR 
INTTAB(19);" *:PRINTTAB(12);" 
+ HS +s"sPRINTTAB(LO); 4! 

3630 PRINT:PRINT:PRINTTABIS) ; 
*(Mono)hi drogenossul fato (+) 

ou sulfato (song) Rcido ou bis 
sulfato" 

3635 GOSUB 3705 

3640 GOTO 3590 

INTE PRINT; PRINT; PR 
PRINTTAR (1 















*(Mono) hi drogenocarbonato (4 
ou carbonato (mono)acido ou 
bicarbonato” 

3655 GOSUB 3705 

3660 BOTO 3590 

3665 CLS; PRINTSPRINT:PRINTAPR 
INTTAR (18); "2 *:PRINTTAR(12) 
“a HP emtSPRINTTAB(LB); "A 





3670 PRINT;PRINT:PRINTTAB(S) ; 








e 
8 
E) 
A 





MaHBYTE! 


MAXSINUCA MAXPOKER 


DESAFIE SEU MICRO 


AMAXBYTE dispõe de uma variadíssima linha de jogos LANÇAMENTO NACIONAL DA MAXBYTE. 


programados para microcomputadores, e também de fitas O 
LS MAnBrTE 


didáticas para aumentar seus conhecimentos. 
E a maior emoção em fitas k-7, para micros padrão MSX, 

Caixa Postal Nº 530 - CEP 01051 
São Paulo - S.P. 


você pode disputar com um amigo, ou jogar contra seu 

próprio micro. 

Com os jogos e aplicativos da MAXBYTE, você será um 3 & 
Monbodor. Fone: (011) 223-8643 














*(Nono)hidrogenafostato (4) o 
u fosfato: (sonoJacido” 

3675 BOSUR 3705 

3680 GOTO 1590 


3685 CLS:PRINT: PRINT: PRINT: 





3800 PRINT:PRINT 

3805 PRINT:PRINTTAB(10)5* (1) 
- BASES": PRINTTAB(10); (2) — 
SAIS" 

3810 PRINT;PRINT: PRINTTAB(IO) 





3975 PRINT"Sulfetos (41) *;TA 





3980 PRINT"Hidroxidos (42) "STA 
BITS" PSTABIDO;! 








sINPUT"OPCAO =>";HH$ 3985 PRINT'Cloretos (43) "FTA 

3815 TF Hh$="1" THEN 3825 IB (29); 

3820 IF HH$="2" THEN 3900 3990 PRINT" Brometos (44) ;TA 

3825 CLS Bi7);" B(29);" 
*bi-hidrogenofosfato (8) ou É 3830 PRINTTAB(B);*+* ESTUDO D 3995 PRINT'Iodetos (45); TA 


osfato diacido* 
3695 BOSUB 3705 
3700 BOTO 3590 
3705 PRINTSPRINT:PRINTTAB (1): 
*(4) None oficial ou IUPAC. O 
prefixo MONO e dispensavel* 
3710 RETURN 

3715 CLS:EE4="FORNULACAO DE A 
CIDOS": ZAS=STRINGS (37,42): 788 
=STRINGS (2,42) 

3720 PRINTTAB(L); TAS: PRINT TA 
Br); TES; TAB (36); L86: PRINTTAR 
(1); 85; TAB(9) 5EES; TAB (36); 78 
S:PRINTTAB(1); 78; TAB (36) ; TES 
aPRINTTAB (1); TAS 
3725 PRINT 

Ee PRINTTAB(9); 







A teSSTAB(Z) 
FºACIDO":PRINTTABIZS): nº 
3735 PRINTSPRINTTAB(2): "Os Re 
idos cujo os nomes tla sulfix 
os IDRICO, OSO e ICO, sao for 
mulados com anions cujo nome 
s tea sulfixos ETO, ITD e ATO 
respectivasente, " 

3740 PRINTSPRINT: PRINT: INPUT" 


AS BASES ++" 

3835 PRINT: PRINTTAR(I) ºDEFIN 
ICAO (Segundo ARRHENIUS)* 

3840 PRINT: PRINT 

3845 PRINTTAB(T); Base sao co 
apostos que ea solucao" 

3850 PRINT'aquosa, libertas c 
ono anions o radical 

3855 PRINT" Ob(Hidroxilal* 

3860 PRINTTABLADS 

3865 PRINTTAB(1);"D anion OH 
libertado pela base e chasad 
o HIDROXILA ou OSIDRILA, dai q 
fato de as bases serem chana 
fas tanbea de hidroxila ou al 
calis. 
3870 PRINT:PRINTTAB(15); "SAO 
BASES" 


3875 PRINT:PRINTTAB(2)5 "Ca (OH 
D NH OM 5KOM 5 Ba(0H) * 
JEgO PRINTTAB(B)$ "2º; TARCIS); 
AB(29) "2º 

3885 PRINT: PRINTTAB(3): INPUT" 
Deseja retornar ao menu (S/N) 
"BRs 

3890 IF Bk$="S" DR Bk$="5* TH 
EN TS 

3895 TF BK6="Nº OR BK$="nº TH 














Bea); *STAB(ZO)" 
4000 PRINT"Sulfatos (6) ";TA 
BID); *STAB(ZO);" 

4005 PRINT'Sais e" metais"; PRI 
NT"alcalinos":PRINT'e de amon 
do" TAB(IT;" + 

4010 PRINT*Carbonatos(+7)"; TA 
BAT); "STAR! 

4015 PRINT'Fosfatos (48) "5 TA 
BIAT)S! CSTARIDO);* 
4020 PRINT: PRINT" (4) =t 
B(10); INPUT "Escolha obs: 

















ARS 

4025 IF ARSC"I"ORARS)"BATHEN 

GOTO 4020 

4030 GOTO 4075 

4035 CLS:PRINTTAB(24)5 "2 "PR 

INTTAB(10); "44 SULFETOS (S |) 

“e 

4040 PRINT:PRINTEPRINTTAB(4) j 

"Sao soluveis os sulfetos dos 

metais alcalinos & alcalinos 

terrosos e de amonio* 

4045 PRINT: PRINT:PRINTTAB(S)5 

"EXEMPLOS" 

4050 PRINT;PRINT: PRINTTABIB) * 

Na 5 3K 5 0aS ;BaS GNH ) 5º 
"2º pTAR(IS) 

STAR (4); 2º 





| EM 3790 

| o ARETURND:p/ ver. emesplo ele 4060 PRINTSPRINTTAB(S): INPUT" 

| 3745 ELSSPRINTPRINTSPRINTIAR 3905 PRINTTAB(B); *e4 ESTUDO deseja algo nais (SIM 1169 
(12)a ae EXEMPLO 4º DOS SAIS 44º Ne ii o sic 
3750 PRINTPRINTSPRINTSPRINT: 3910 PRINTSPRINTTAR(A)"CONCE O em És 

PRINT ITos* S070 TF KBS="N" OR K68="nº TH 








3755 PRINTTABIS);*ACIDO"STAR( 
25) "ANTONST 

3760 PRINTEPRINTEPRINTTAS (455 
*Sultidrico"; TAB(24); "Sulfeto 


3765 PRINTTAB(4); "Sul furoso; 
TABI24); "Sulfito” 

BITO PRINTTAB(4); "Sul furica”s 
TAB(24);"Sultito* 

3775 PRINTEPRINT:PRINTEPRINT 
:PRINTIAB (0): INPUT" Deseja «0! 
no ao menu inicial (S/NH*;BW 





sm TF BW$="9" OR Bu$="5" TH 
EN 75 

3785 IF BM="N" OR BHS= 
EN CLEAR:GOTO 3715 
3790 CLS:EFS="PASES E SAIS*:T 
ASESTRINGS (37,42): BS=STRINGS 
(2,42) 

3795 PRINTIAB(L); 








mw 






3915 PRINT:RINTTAR(3) 4 "Sais 
sao compostos que possues pel 

o senos us cation diferente d 
e hidrogenio e pelo senos um 
Cnion diferente de oxidrila” 
3820 PRINT;PRINT"Outra defini 

cao diz 

3925 PRINTPRINTTAR(S)S“ACIDO 
+ BASE ==> SAL + AGUA 

3930 PRINT:PRINTTAR(IS)S “São 
sai 

3935 PRINT:PRINTTABIZIS*HCI + 
NaDh ==> NaCl + H 0º 

3940 PRINTTAB(17)5 "sal"; TAR(2 
5);"2":6OTO J885 

3945 BOTO 75 

3950 CLS:GOTO 3955 

3955 1=9:HF$="SOLUBILIDADE EM 
AGUA"; 2L$=HFS: BOSUB 4315 

390 PRINT: PRINTTAR (0); *CONPO 
STOS*;TAB(13) 5 "SOLUVEIS?;TAB( 











ENS 
4075 TF AR$="1" THEN 4035 
4080 TF AR$="2" THEN 4115 





4100 TF AR$="6* THEN 4250 
4105 TF AR$="7" THEN 4215 
MIO TF AR$="B" THEN 4275 
4115 CLS:PRINTTAR(26);* "iPRI 
NTTAB(9); "4 HIDRÍXIDOS (OM 
Ro 

4120 PRINT:PRINT:PRINTTABIB) j 
*Sao soluveis os hidroxidos d 
os metais alcalinos e alcali 
no terrosos e de  amonio” 
425 PRINT:PRINT: PRINTTAB(S) ; 
“Exemplos *: PRINT; PRINT:PRINTT 
AB(4);*NaDH ;KOM 5Ca(OH) Ba 
tom NH ORE 

4130 PRINTTAB(21); "2"; TAB(30) 
4ºZeTAB(IS); 4º 


l (1); 288; TAB (36); 288: PRINTTAB( 24); INSOLUVEIS" 
| AB(36)18 2965 PRINTSPRINTONitratos";TA a pa 
| S:PRINTTAB(S) 28; TAB(S6)578S Bans ; o 


iPRINTTAB(LIFTAS 


3970 PRINT" Acetatos"; TAB(IT); 


NTTAB(11); "++ CLORETOS (CI 3 
“e 





e ss | 
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4145 PRINT: PRINT: PRINTTAB(S) 5 
*Sao insoluveis as principais 
excessoes da regra” 

4150 PRINT:PRINTTAB(B); *AgCl 


3PbCI Hg CI * 

4155 PRINTTAB(18);*2"; TAB(23) 
"2" TAR(26); "2º: BOTDADEO 
4169 PRINT:PRINTTAB(B) 5 "AgBr 
;PbBr Hg Br" 

4165 PRINTTAR(18);"2"; TAB(23) 
4º2"STAR(26); "2": GOTO 4060 
470 CLS:PRINTTAB(26);" "iPRI 
NTTAR(11); "+ BROMETOS (Br ) 
o 

4175 PRINT: PRINT: PRINTTAR(S) ; 
"Sao insoluveis as principais 
excessoes da regra” 

4180 PRINT:BOTO 4160 

4185 CLS:PRINTTAB(25);* *LPRI 
NTTAS(1L);"e+ TODETOS (1) ++ 
" 








4190 PRINTEPRINTTAR(O) Ag 5 
Pol GHg 1 sl” 

4195 PRINTTAB(11)5 "2"; TABLI6) 
5º2" TAB(ZI); "2º; TAB(23) *2"5 
TARIDONseS* 

4200 GOTO 4060 

4205 PRINT: PRINTTAR (8); "CaSO 
+SrS0 BaSO sPbSO * 

4210 PRINTTAB(12); "4"; TAB(19) 
UAM TABID6); APTAB(3I); MAG 
gro 4060 

4215 CLS:PRINTTAB(26);"2 " 
4220 PRINTTAB(9); "++ CARBONAT 
OS (CO ) am" 

4225 PRINTTAB(26); "3" 

4230 PRINTEPRINT:PRINTTAR(4) 5 
"Sao soluveis os carbonatos d 
os metais alcalinos e de amon 
io” 

4235 PRINTEPRINTEPRINTTAB(S); 
"EXEMPLOS"; PRINT: PRINT:PRINTT 
ABIT); "Na CO sk CO S(NH) 
0 











FTAB(IZI 
"3º TAB(16); "2"; FAB(19);"I'ST 

ABIZ; TAR(26); "2º; TAB(29 
my 

4245 GOTO 4060 

4250 CLS:PRINTTAB(23);*2 * 

4255 PRINTTAB(8); "++ SULFATOS 
150 ) 

4260 PRINTTAB(23); "4" 

4265 PRINT:PRINT:PRINTTAB(S) 5 

"Sao insoluveis as principais 
excessoes da regra: 

4270 GOTO 4205 

4275 CLS:PRINTTAB(23); "3 * 

4280 PRINTTAB(B); ta FOSFATOS 
(PO Dm 

4285 PRINTTAB(23); "4º 

4290 PRINT: PRINT: PRINTTAR(4); 

*Sao soluveis os fosfatos dos 
netais alcalinos e de asonio 

. 








4295 PRINT;PRINT;PRINTTAB(S)5 
"EXEMPLOS! PRINT: PRINT:PRINTT 
ABI); "Na PO SK PO FUN) P 
0º 

4300 PRINTTABI9)S "3" TAR(12); 
“APS TAB(L6)5 "3ºFTARCI9)S 45 T 
ABI25); "4º; TAR(Z7) "Sº;TABCIO 
na 

4305 PRINTTAB(14); "4º; TARI20] 
5º3PGTABIZA) 5 "2º TABIZ7)S “4 
dsto GOTO 400 

4315 TAS=STRINGS (37, 42): 28855 
TRING$(2,42) 

4320 PRINTTAB(L); ZAS:PRINTTAB 
(1)5TBS;TAR(36) TES: PRINTTAR( 
1); ZBS;TAB(X) TIS; TAB (36); T84 
:PRINTTAB( 1); ZB$; TAB(36); 286: 
PRINTTAB(1) 5 AS 

4325 RETURN 

4330 PLAVeTI2O? 

4335 PLAY" DALACCFELZALBFEDA, 
-B-4* 











4340 PLAY"R-2AB-D5C204FFFA.EF 
462.62" 

4545 PLAY'LACOFGAZLBFEDA, B-BR 
= 

4350 PLAV"R-2LOB-B-A4, BF4EM,F 
G4r2,* 

4355 RETURN 
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A ESCOLHA DE 
UMA LINGUAGEM 


Luis Peres Azevedo 


Se você está escrevendo 
programas, você deverá 
querer fazer o melhor que 
puder. 

Se além disto você 
planeja ganhar dinheiro 
com programas que 
acredita serem úteis para 
as pessoas em geral, há 
que considerar em que 
linguagem trabalhar, qual a 
máquina e qual o sistema 
operacional masi indicado. 


Algumas vezes estes 
fatores são conflitantes. A 
linguagem Assembley 
produz um programa as 
mais rápidas aplicações, 
mas se você for tentar 
escrever um programa 
complexo nesta 
linguagem, logo perceberá 
que não será simples 
terminá-lo. 

Um bom sistema 
operacional pode 
aumentar a velocidade de 
desenvolvimento, porém, 
nem sempre o melhor 
sistema para 
desenvolvimento e o mais 
popular. 

Do ponto de vista 
comercial, não faz sentido 
escrever programas para 
sistemas pouco populares. 
Para complicar, nem 
sempre o melhor sistema 
operacional e a melhor 
linguagem são 
compatíveis. 

Geralmente para 
balancear estes fatores, 
alguns programadores 
escolhem a melhor 
linguagem, para o mais 
popular sistema 
operacional existente. 





Neste artigo tentarei 
definir alguns critérios 
para selecionar uma 
linguagem, entre as 
populares Assembley, 
Basic, Pascal e C. 


Critérios de Velocidade 

Para escolher uma 
linguagem, primeiro 
determine as características 
de seu programa. Se a 
velocidade é crítica, a 
linguagem Assembley é a 
mais indicada. Se deve ser 
o menor possível, 
também. 

Alguns programas 
podem parecer necessitar 
de Assembly, porém na 
realidade não. É o caso das 
aplicações matemáticas, 
em que uma linguagem 
compilada terá melhor 
desempenho. 

A velocidade não é 
tudo, entretanto. 
Programas em que se gasta 
muito tempo esperando 
pelo operador, é 
comparativamente pouco 
tempo calculando e 
processando as 
informações, não serão 
significativamente 
melhorados pelo uso da 
Assembly Language. 

O mesmo é verdade 
para programas que 
gastem muito tempo 
melhorado com acesso a 
disco. O acesso a disco 
não poderá ser melhorado 
com a linguagem, pois 
depende de fatores 
externos ao programa. 
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Um exemplo clássico é 
o programa desenhado 
para imprimir um 
relatório. Se o programa 
envia dados mais 
rapidamente do que a 
impressora é capaz de 
absorver, mais celocidade 
será desnecessária. 


Falsas Aparências 
Frequentemente os 
programadores escrevem 
aplicações para as quais 
uma determinada 
linguagem parece 
claramente superior. 

Considere um 
programa gerador de 
relatrórios capaz de enviar 
a impressora 300 
caracteres por segundo, 
Suponha também que 
cada página contém 6 
linhas em branco e 10 
linhas de informação, 
como títulos e cabeçalhos 
para os quais não se perde 
tempo em cálculos. As 
outras 50 linhas de uma 
página contém informação 
que nessita de cálculo. 

Se a linguagem A pode 
calcular a informação e 
em a impressora a 250 
cps, e a linguagem B pode 
fazê-lo a 1000 cps, então a 
linguagem B será mais 
rápida que a linguagem A, 
que não é capaz de 
imprimir toda a 
velocidade a impressora. 








A ESCOLHA DE 
UMA LINGUAGEM 


Espera-se uma diferença 
de velocidade de no 
mínimo S0cps. Se a 
linguagem A envia 1300 
caracteres de informação 
que não demanda 
processamento a 3000 
cps, e a linguagem B envia 
a 5000 cps, a linguagem B 
parecerá ter vantagem. 

Para os nossos 
propósitos, assuma que as 
linhas em branco tomam 
0.5 segundos para serem 
impressas na mesma 
velocidade, Muitas 
impressoras tem um buffer 
de no mínimo vários 
milhares de caracteres. A 
linguagem B enche o 
buffer, enquanto a 
impressoa é obrigada a 
trabalhar a plena 
velocidade. Entretanto, a 
linguagem B leva 26 
segundos (60 linhas de 
130 caracteres/300cps) 
para imprimir os dados 
em toda a página e 0.3 
segundos (6 linhas em 
branco *0.5 segundos) 
para imprimir as linhas em 
branco. No total são gastos 
26.3 segundos. 

A linguagem A, por 
outro lado, leva 0.43 
segundos (1300 
caracteres/3000cps) para 
enviar as informções 
fixadas para a impressora e 
26 segundos (50 linhas 
*130 caracteres por linha 
impressora e 26 segundos 
(50 linhas *130 caracteres 
por linha/250cps) para 
enviar os dados que 
necessitam de cáculo. 


Adicionando 0.3 segundos 
para as linhas em branco, 
O tempo total para 
impressão na linguagem A 
e de 26,73 segundos. Para 
imprimir um relatório de 
100 páginas, a linguagem 
A toma somente 43 
segundos a mais que a 
linguagem B — o que não 
é uma grande diferença. 

Se a impressora não 
tiver buffer, a linguagem B 
irá também imprimir na 
velocidade de 300cps. O 
tempo total requerido para 
imprimir um relatório de 
100 páginas será o mesmo 
4.33 segundos (1300 
caracteres/300cps), a 
informação calculada em 
26 segundos e as linhas 
em branco em 0.3 
segundos. O tempo total 
requerido será de 30.63 
segundos. Para um 
relatório de 100 páginas, a 
diferença será de 6.5 
minutos. 

Certamente, a 
linguagem B irá terminar o 
trabalho mais rapidamente 
numa impressora rápida. 
Seu computador também 
poderá finalizar o trabalho 
mais rapidamente se você 
tiver um grande buffer na 
impressora — SI2K ou 
mais, para colocar entre 
ele e a impressora. A 7800 
caracteres por página, um 
buffer de 512K pode 
armazenar 65 páginas de 
seu relátorio. 

O computador será 
então liberado mais 
rapidamente para outras 
aplicações. 
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Outro ponto 
interessante é o do acesso 
a disco. Considere dois 
programas escrevendo 
dados indênticos num 
arquivo em disco. 
Programa A envia os 
dados a 10000 cps; 
programa B envia os 
dados a 100000 cps. O 
programa B é mais rápido 
não?. Não 
necessariamente. Se o 
sistema operacional só 
aceita os dados a 10000 
cps, de nada adiantará o 
programa B ser mais 
rápido. A única maneira de 
trabalhar mais rápido será 
mudar o sistema 
operacional, se isto for 
possível. 


Sobre Assembly 

Que linguagem utilizar se 
você não necessita da 
rapidez e flexibilidade da 
Assembly? Se o Basic 
interpretado não é rápido 
o suficiente para suas 
necessidades, tente o Basic 
compilado. 

Os programas 
compilados nunca rodam 
mais lentamente que os 
interpretados, e 
geralmente são 150 vezes 
mais rápidos. 

No caso do MSX, 
existem ainda algumas 
limatações no compilador 
BASIC da Microsoft, que o 
impedem de compilar as 
funções gráficas, só 
operando em modo texto. 


Já estão no entanto 
disponíveis vários 
compiladores para os 
MSX, como FORTRAN, C, 
PASCAL, etc... em fita e em 
disco, que abrem para o 
usuário um grande 
horizonte e tornam 
necessária uma escolha 
correta da linguagem para 
desenvolvimento. 

Em geral a compilação 
produz os maiores ganhos 
de tempo para programas 
em que se gasta pouco 
tempo esperando pela 
entrada de dados, poucas 
leituras em disco, e que 
não imprimem grandes 
quantidades de 
informação. 

Os programas 
compilados que usam 
aritmética real são três 
vezes mais rápidos que 
programas interpretados, e 
em aritmática inteira cles 
podem ser de 30 a 150 
vezes mais rápidos. 

Se o BASIC interpretado 
não tiver os comandos 
que você necessitar, há 
duas alternarivas: 

— Construir rotinas 
auxiliares em Assembly, ou 
usar uma outra linguagem. 
Muitos programadores 
reclamam que o BASIC 
(compilado ou não) é 
muito mais lento que o 
PASCAL ou C, 

Não é bem assim: 
Turbo Pascal não é mais 
rápido que o BASIC 
compilado, que é tão 
rápido quanto FORTRAN 
ou C. 





Para algumas 
aplicações, outras 
linguagens oferecem mais 
vantagens que o BASIC, A 
linguagem C e o Turbo 
Pascal por exemplo, 
parecem manipular strings 
mais rapidamente que o 
BASIC compilado. 

Em Turbo Pascal, 
strings estão limitadas a 
255 bytes. 

Em BASIC compilado 
você pode dimensionar 
um array de 1000 strings, 
em que cada um pode ter 
até 32767 caracteres de 
comprimento. Sob MS- 
DOS, este array irá ocupar 
ao ser criado, 4000 bytes. 
Cada elemento irá usar 2 
bytes, mais o 
comprimento da string, 
quando algo é 
armazenado. Se todas as 
1000 strings contiverem 
dados, isto significam 
6000 bytes. 

Em Pascal ou C, você 
tem duas escolhas: 
declarar o comprimento 
de cada uma das strings e 
usar toda a memória, 
necessitando ou não de 
todo o espaço: 

Ou declarar um array 
de 1000 vetores para uma 
área de memória onde as 
strings estejam 
armazenadas. Se você 


escolher a pri 

hipótese, gastará 255000 
bytes (255*1000). Se 
escolher a segunda, 
poderá manipular apenas a 
área de memória 
necessária. 

Vemos então que em 
casos críticos de alocação 
de memória, o BASIC 
pode ser interessante. 

A linguagem C é 
amelhor linguagem, se 
você quiser assegurar que 
seus sistemas rodem no 
sistema operacional UNIX. 
Versões de BASIC que 
rodam em sistemas UNIX 
não são compatíveis com 
o BASIC Microsoft, mas 
todas as versões de C são 
transportáveis de micros 
para computadores 
maiores. 

A Pascal por outro lado, 
não é uma linguagem 
transportável. Todas as 
versões de Pascal tem 
extensões, que não são 
compatíveis em todos os 
computadores. 

Em 
microcomputadores, 
Turbo Pascal pode ser 
considerada padrão na 
linguagem. Há porém a 
UCSD Pascal, e poucos 
mainframes e minis rodam 
Turbo Pascal ou UCSD 
Pascal. 

Certamente, alguns 
programadores que 
tenham vindo de 
mainframes gostarão de 
trabalhar em FORTRAN ou 
COBOL. Estas linguagens 
tem padrões bem 
definidos, e existem bons 
computadores para elas. 


Para algumas aplicações 
a FORTRAN é a mais 
indicada: ela é por 
exemplo a única 
linguagem que admite 
números complexos. 

É portanto a linguagem 
natural para engenheiros, 
em casos de simulação de 
fenômenos físicos, por 
exemplo. 

Cobol é uma linguagem 
em que se escreve muito, 
apesar de ser de 
aprendizado relativamente 
fácil, porém isto implica 
em grandes gastos de 
memória e uma grande 
lentidão na operação. Não 
é boa também para 
execução de complexas 
operações matemáticas. 

Uma das melhores 
linguagens disponíveis 
hoje pe a APL, ótima para 
trabalhos de planilhas 
eletrônicas. O único 
problema é que ela é uma 
linguagem bastante cara, 
ou seja seu compilador é 
vendido a algumas 
centenas de dólares. 

Há outros fatores a 
considerar ao escolher 
uma linguagem, como a 
facilidade de manutenção, 
o número de 
programadores que 
trabalham naquela 
linguagem e que poderão 
colaborar na montagem 
do sistema, a facilidade de 
aprendizado, etc... porém 
acho que o BASIC é a 
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linguagem de melhor 
rendimento para nossos 
microcomputadores, e é 
por isto que seu uso é 
amplamente difundido. É 
uma linguagem de largo 
espectro, fácil aprendizado, 
e se bem documentada, a 
manutenção não é 
problemática. 

É sempre bom 
entretanto o leitor ter uma 
visão geral de todas as 
linguagens disponíveis, e 
começar a verificar o que 
elas tem de comum entre 
si, que são as estruturas 
básicas de programação, 
Com isto, como os 
sistemas serão montados 
futuramente em linguagem 
natural, ou você mesmo 
irá criar sua própria 
linguagem de 
programação, se criarão no 
leitor métodos de 
raciocínio que facilitarão o 
trabalho. 

O objetivo deste artigo 
é mostrar que com a gama 
de linguagens disponíveis, 
o leitor deve cada vez mais 
estudar das vantagens e 
desvantagens de cada uma 
delas. 





O PESQUISADOR DE F 


Jorge Sergio Massarani 


Como apresentado em artigo anterior 
(ver MSX MICRO nº 8 “Classificador de 
arquivos”), embora cu esteja desenvol- 
vendo alguns utilitários em assembler, 
que têm auxiliado-me bastante como 
subrotinas ou mesmo tornando-se pro- 
gramas completos, considero mais con- 
viniente apresentá-los aqui como ver- 
sões em BASIC, que têm um alcance e 
entendimento bem mais amplo por 
parte dos leitores (embora não exclua 
a possibilidade de apresentar versões 
futuras em assembler). Os leitores que 
dispuserem dos recursos de software e 
entenderem o assembler do Z80, po- 
dem facilmente, se necessário, analisa- 
rem esses utilitários em BASIC e rees- 
creverem versões em assembler. 





Este artigo apresenta um programa 
em BASIC, que lê de um disquete o 1º 
setor de um arquivo cujo nome é da- 
do pelo usuário, determina se este ar- 
quivo foi gravado pelo comando BSA- 
VE, ou seja: é um arquivo binário, po- 
dendo ou não ser um programa. Caso 
seja um arquivo binário, é determina- 
do e apresentado o endereço inicial de 
carregamento, endereço final de carre- 
gamento, endereço de execução (para 
o caso de ser um programa se saber on- 
de inicia a sua execução) e O tamanho 
do arquivo em bytes. Esses dados são 
apresentados no sistema numérico de- 
cimal e hexadecimal 


Utilização 

Eu poderia escrever neste item várias 
páginas sobre possíveis utilizações do 
programa apresentado neste artigo. Po- 
rém o próprio leitor se dará conta da 
necessidade de aplicação deste utilitá- 
rio no dia a dia da utilização do seu mi- 
cro computador. Apresentarei, a seguir, 
apenas alguns exemplos a título de es- 
clarecimento. 
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Para os programas gravados em cas- 
sete com o comando BSAVE é comum, 
eaconselhável, mantermos anotados os 
endereços inicial, final e de execução 
desses programas. Se não fizermos is- 
so, a cada vez que quizermos saber es- 
ses endereços de um determinado pro- 
grama temos que: quizermos saber es- 
ses endereços de um determinado pro- 
grama temos que: 

a) carregar um leitor de endereços; 
b) localizar na fita o programa deseja- 
do; 

c) executar o leitor de endereços. 
Isso não é uma tarefa árdua, mas é de- 
morada quando executada com o gra- 
vador cassete. 

Para programas gravados em disque- 
tes com o comando BSAVE a situação 
é diferente, pois os tempos de acesso, 
localização e carregamento são míni- 
mos e, em vista disso, não precisamos 
ficar anotando em papel esses endere- 
ços. A hora que os quisermos basta exe- 
cutar o utilitário apresentado neste ar- 
tigo. 

Uma outra aplicação não menos co- 
mum é para programadores em BASIC 
que possuem determinados subrotinas 
em assembler, ou feitas por ele, ou 
compradas, ou adquiridas de colegas e, 
por um motivo ou outro, não sabem 
onde essas subrotinas são carregadas na 
memória e o seu endereço de execu- 
ção, necessitando porém limitar o espa- 
ço reservado para o BASIC a fim de que 
haja interferência entre o programa BA- 
SIC e a subrotina em assembler, Execu- 
te esse utlitário e seus problemas esta- 
rão resolvidos (cuidado com subrotinas 
mal feitas que não reservam o seu pró- 
prio espaço de execução e interferem 
no BASIC) 

Um terceiro exemplo de utilização 
não menos comum, é a análise de pro- 
gramas em assembler com um Moni- 
tor-desassembler. Suponha que você 
comprou aquele jogo dos seus sonhos, 
ou aquele copiador de programas e 
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quer analisar como os programadores 
mais experimentados fazem seus pro- 
gramas, Depois de duas ou três tentati- 
vas de carregar o Monitor-desassembler 
e o programa comprado você descon- 
fia que um carrega em cima do outro. 
Não deveria ter perdido tanto tempo; 
bastava rodar o utilitário aqui apresen- 
tado e verificar onde carrega o progra- 
ma que você comprou; após isso rea- 
locar o seu Monitor-assembler para 
uma área que não interferisse com o 
programa a examinar e tudo estaria re- 
solvido. Útil, não? 





Comentários sobre o 

desenvolvimento do programa 

A minha maior dificuldade para fazer 
este utilitário foi a de descobrir como 
os endereços inicial, final e de execu- 
ção de um arquivo binário 
nados no disquette, já que não há, pe- 
lo menos que eu tenha conhecimento, 
nenhuma publicação que explique is- 
so. 

Gastei cerca de uma semana, traba- 
lhando 3 horas por dia e mais um sá- 
bado inteiro para descobrir como são 
arquivados esses endereços no disquet- 
te, Para que o leitor, caso necessite des- 
ses dados para desenvolver seus pró- 
prios programas, não ter o trabalho que 
eu tive, aqui vai O “pulo do gato”. 

O sistema operacional de micro ao 
carregar com o comando BLOAD um 
arquivo binário gravado com o coman- 
do BSAVE, precisa dos seguintes dados: 
1 — Os endereços de carregamento 
(inicial, final e de execução se for um 
programa); 

2 — Saber se é um arquivo binário e 
não um outro tipo, como por exemplo: 
um programa em BASIC, um arquivo 
ASCII, etc. 

Esses dados são obtidos da seguinte 
forma: 

a) Endereços de carregamento 
Sempre que gravamos arquivos biná- 
rios, isto é, usamos o comando BSAVE, 









temos que dar mais 3 parâmentros ao 
comando, são eles: 
EI — Endereço inicial do bloco da me- 
mória a ser gravado; 

EF — Endereço final do bloco da me- 
mória a ser gravado; 

EX — Endereço de execução para o ca- 
so do bloco gravado ser um programa 
em código binário. Então temos que 
fornecer o endereço da instrução ii 
cal de execução do programa, pois 
quando dermos o comando BLOAD 
“nome do programa”, R o programa irá 
começar a executar as instruções a par- 
tir desse endereço. 

Assim, O comando completo é: 
BSAVE “nome do arquivo”, El, EF, EX. 

Caso o seu arquivo não seja um pro- 
gram ou endereço de execução do pro- 
grama seja igual ao endereço inicial, is- 
to é: EX = El, não precisamos colocar 
o parâmetro EX, pois o sistema assume 
que EX = EI 
b) — Tipo de arquivo 
Ao receber o comando BSAVE o siste- 
ma operacional grava no disquette, lo- 
go como primeiro byte, o valor 254 de- 
cimal (FE em hexadecimal) e, ao ler es- 
se arquivo com o comando BLOAD ele 
testa esse byte; se for 254 então ele sa- 
be que é um arquivo binário. Simples 
não? 

Quando damos o comando BSAVE 
“nome do arquivo”, El, EF, EX, o siste- 
ma operacional, antes de gravar o arqui- 
vo binário, grava no início do primei- 
ro setor do disquete que pertencerá ao 
arquivo, sete bytes do primeiro setor do 
disquete que contêm todas as informa- 
ções que ele necessita para carregar o 
arquivo com o comando BLOAD. Es- 
ses 7 bytes são os seguintes: 











1º byte — Tipo do arquivo (valor 254 
decimal = FE hexadecimal); 

2º e 3º bytes — endereço inicial de 
carregamento; 

49 €5º bytes — Endereço final de car- 
regamento; 

6º e 7º bytes — Endereço de execu- 
ção. 

Do 8º byte em diante estará o arqui- 
vo binário propriamente dito. 

Cada 2 bytes dos endereços inicial, 
final e de execução são gravados com 
o byte menos significativo primeiro, se- 
guido do byte mais significativo, para 
que possam ser operados mais conve- 
nientemente pelo microprocessador 
Z80. Para os leitores que ainda não têm 
bons conhecimentos em assembler o 
exemplo a seguir esclarece como essa 
gravação é feita. 

Suponha que gravamos um jogo 
programado em assembler que tem co- 
mo nome MEUGAME; endereço inicial 
de carregamento o valor 36864 (9000 
hex, o hex doravante identifica valores 
no sistema numerico hexadecimal); en- 
dereço final de carregamento o valor 
53247 (CFFF hex); endereço de execu- 
ção o valor 40976 (AOIO hex) isto é, da- 
mos o comando: 

BSAVE “MEUGAME”", 36864, 53247, 
40976 ou 
BSAVE “MEUGAME”, &H9000, 
&HCFFF, &HAOIO 

O sistema operacional gravará os pri- 
meiros sete bytes do arquivo MEUGA- 
ME como sendo: 

Bytes: 1º 29%» 3º 4º 5º 6º 
ee in 
FE 00 90 FF CF 10 
AO arquivo... 
Valor decimal = 254 

Endereço inicial 

de carregamento. 

Valor decimal = 36864 

Valor hexadecimal = 9000 
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Endereço final 90 
de carregamento. 100 
Valor decimal = 53247 no 
Valor hexadecimal = CFFF 
120 
Endereço de execução. 
Valor decimal = 40976 130 
Valor hexadecimal = AOIO 140 
Uma outra observação é que se 
dermos o comando DIR no arquivo 150 
MEUGAME ele apresentará um 
tamanho de 16391 bytes (4007 hex) 160 
e, ao rodarmos o programa deste 
artigo ele dará o tamanho do arquivo 170 
como sendo 16384 bytes (4000 hex), 
isto é, sete bytes a menos. É que o 180 
comando DIR considera os bytes 
gravados no disquete e o programa 190 
aqui apresentado considera os bytes 
gravados na memória, sendo que os 200 
setes bytes acima não são carregados 210 
na memória junto com o arquivo 
binário. 220 
Ok. Vamos ao programa. 
230 
O programa 240 
O programa é auto explicativo 
através das suas telas. Transcreva-o 250 
com atenção, 260 
A rotina de tratamento de erros 270 
prevê apenas os erros mais comuns 
que são “ARQUIVO INEXISTENTE”, 280 
“NOME INCORRETO DE 290 
ARQUIVO”, “DRIVE INEXISTENTE”. 300 
Se quizer prever algum outro erro 
basta atualizar a subrotina 
TRATAMENTO DE ERROS (Ver 310 
listagem do programa) 320 
A versão aqui apresentada foi 
testada e não apresentou “bugs”, 
Até a Próximal Mantenha contato! 330 
10 
20 **** CONFIGURAR * 340 
É 
40 — DEFINTEM 350 
50 J=PEEK (&HF3BO):K=PEEK 
(&HFCAF):L=(PEEK(&HE3DE) 
60 | SCRREN 0:KEY OFF:WIDTH 37 
70 ê 
so **** TELA INICIAL *** 
36 MSXMKro 


cs 

PRINT ”**** PESQUISADOR DE 
ENDEREÇOS *****" 
PRINT:PRINT:PRINT "Programa 
elaborado por J.S.MASSARANI” 
PRINT:PRINT "Versão 1,0” 
PRINT "Data: 22 de janeiro de 
1987” 

PRINT:PRINT "Este programa 
pode ser utilizado 

PRINT "para qualquer finalida- 
de que se” 

PRINT "deseje, exceto aquelas 
que envol” 

PRINT "vam aspectos comer- 
ciais” 

PRINT:PRINT "PRESTIGIE NOS- 
SOS TRABALHOS,” 
PRINT:PRINT "Selecione:” 
PRINT:PRINT SPC (3); "1 = DE- 
TERMINAR ENDEREÇOS” 
PRINT:PRINT SPC (3); "2 = RE- 
TORNAR AO BASIC” 
AS$=INKEYS:IF A$=""THEN 230 
IF(A$< > "1”) AND (A$ < 
>2”) THEN 100 

IF A$ = “2” THEN 1210 











**** TELA DO PESQUISA- 
DOR *** 


cIs 

PRINT ”**** PESQUISA- 
DOR DE ENDEREÇOS 
euros 
PRINT:PRINT:PRINT 
PRINT "ENTRE O NOME 
Do dm dera NA FOR- 


RIR PRINT "nome. 
extensão” 

PRINT "Para arquivo no 
drive corrente. 
PRINT:PRINT:PRINT "OU 
NA FORMA': 





360 
370 


380 


390 


410 
420 
430 
440 
450 
460 
470 
480 


490 
500 
s10 
520 


530 
540 
550 
560 


570 
580 
590 
600 
610 
620 


630 
S40 


650 
S70 
680 
690 


700 
710 


PRINT:PRINT "drive:no- 
me extensão” 

PRINT "Para arquivos em 
outro drive. 

LOCATE 0,20:PRINT "EN- 
TRE + PARA RETORNAR 
AO BASIC” 

LOCATE 0,15 

INPUT "QUAL ARQUIVO”; 
FS 

IF F$= "+" THEN 1210 
**** PESQUISADOR *** 


ON ERROR GO TO 940 
OPEN FS FOR INPUT A$ 1 
M$ =INPUTS (1,1) 

IF ASC (M$) < > 254 
THEN 1080 

X$=INPUTS (6,1) 

CLOSE 1 


**** CALCULA ENDERE- 
ços *** 


FOR I=1 TO 6 
M(1)=ASC (MIDS (X$,1,10)) 
AS (1) =RIGHTS ("0” + 
HEX$ (M(1)), 2) 

NEXT 

EL=M (2) *256+M(1) 
EF=M (4) *256+M(3) 
EX=M (6) *256+M(5) 
M (0) = (EF-EIO+1 

AS (0) =RIGTHS 
("0000" + HEX$(M(0)),4) 


**** TELA DE ENDERE- 
ços *** 


cIs 
PRINT "**** PESQUISA- 
DOR DE ENDEREÇOS 
PRINEPRINT 

PRINT "ARQUIVO: ”; ES 
PRINT:PRINT 

SPC (22); "HEXA”; SPC (4); 
"DECIM” 


720 
730 


740 


750 
760 


770 


780 
790 


800 


810 
820 


830 
840 


8so 


860 
870 
880 


890 
900 
910 
920 


930 
940 
950 


960 
970 


980 
990 


PRINT 

PRINT "ENDEREÇO INI- 
CIAL”; SPC (6) 

PRINT A$ (2)+AS$(1); 
SPC(3); EI 

PRINT 

PRINT "ENDEREÇO Fl- 
NAL”; SPC (8) 

PRINT A$ (4)+AS$ (3); 
SPC(3); EF 

PRINT 

PRINT "TAMANHO DO 
ARQUIVO”, SPC (4) 
PRINT A$ (0); SPC (3); 


PRINT "ENDEREÇO DE 
EXECUÇÃO”; SPC (2) 
PRINT A$ (6) + A$(5); 
SPC(3); EX 

PRINT: PRINT:PRINT "Se- 
lecione: 
PRINT:PRINT ” | 1= PES- 
QUISAR OUTRO 
ARQUIVO” 

PRINT:PRINT ” 2= RE- 
TORNAR AO BASIC” 

A$ = INKEYS:IF A$ = "” 
THEN 870 

IF(A$< > "1") AND (A$ < 
> "2" TI 660 

IFA$ = 
GO TO 290 











THEN 1210 


**** TRATAMENTO DE ER- 
ROS *** 


CLOSE 1 

IF (ERR < > 53) AND 
(ERR < > 56) AND (ERR 
< > 62) THEN 1250 

CLS 

PRINT ”**** PESQUISA- 
DOR DE ENDEREÇOS 
ese 

LOCATE 7,10 

IF ERR=53 THEN PRINT 
"ARQUIVO INEXISTENTE” 


1000 IF ERR=56 THEN PRINT 
"NOME INCORRETO DE 
ARQUIVO” 

1010 IF ERR=62 THEN PRINT 
"DRIVE INEXISTENTE” 

1020 LOCATE 0,20:PRINT 
"APERTE QUALQUER TE- 
CLA 

1030 K$=INKEYS:IF K$ =" 
THEN 1030 

1040 RESUME 290 


1050 "*** TELA DE ARQUIVOS 

1060 NÃO BINÁRIOS *** 

1070 " 

1080 CLOSE 1 

1090 CLS 

1100 PRINT ”**** PESQUISA- 
DOR DE ENDEREÇOS 

110 LOCATE 5,10 

1120 PRINT "O ARQUIVO NÃO 
FOI GRAVADO” 

1130 LOCATE 5,12 


1140 PRINT "COM O BSAVE DO 


DISK-BASIC” 

1150 LOCATE 0,20:PRINT 
"APERTE QUALQUER TE- 
CLA, 

1160 K$=INKEYS:IF K$= "" 
THEN 1160 

1170 GO TO 290 

1180 * 

1190 **** SAIDA *** 

1200 * 

1210 CLS 

1220 SCREEN K: WIDTH J 

1230 IFL< > O THEN KEY ON 

1240 CLEAR 

1250 ON ERROR GO TO O 

1260 END 





Jorge Sergio Massarani é engenheiro 
mecânico industrial, chefe da 
divisão de sistema de Certificação e 
responsável pela área de 
informática do Departamento de 
Normalização e Qualidade da 
Eletrobrás. 
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O advento do disk-drive para o MSX 
trouxe a possibilidade de usarmos ou- 
tras linguagens que não o BASIC resi- 
dente. 

Porque a linguagem PASCAL?. Por- 
que a ela estão associados conceitos 
muito importantes e técnicas de pro- 
gramção estruturada que são aceitos 
como boas práticas no desenvolvimen- 
to de programas. 

Por isso é cada vez maior o número 
de computadores que suportam esta 
linguagem, difundindo ainda mais o 
seu uso. 

No caso do MSX, teremos neste cur- 
so um apêndice, em que serão explica- 
dos os comandos do turbo-pascal 

Turbo Pasc; n software-produ- 
to da Bosland International, e pode ser 
considerado o padrão nas máquinas 
PC, e agora se definirá com os MSX 

Tratando-se de uma linguagem avan- 
çada, precisamos conhecer antes lin- 
guagem avançada, precisamos conhe- 
cer antes, os fundamentos da progra- 
mação estrutura 
— Temos em programação três estru- 
turas básicas: 

— Estrutura sequencial 
— Estrutura Repetitiva 
rutura de Controle ou Condicio- 




















nal 

AO comerçamos a resolver um pro- 
blema através de um programa, tor- 
: necessário montar um alogariti- 
mo, em que estas estruturas estejam 
presentes. Para isto usamos comandos, 
preferivelmente em portugues (estrutu- 
rado) para que isto scja a primeira idéia 
de solução do problema 











Dados dois números inteiros positivos 
Ae B, calcular o módulo de A — B; 
— Programa Solução 
—lerAeB 
SEA SB 
Então Calcular C = A-B 
Senão Calcular C = B-A 
— Imprimir C 
— Fim programa Solução 
No exemplo acima, usamos as estru- 
turas: 
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— Se (afirmativa) 
Então 
Senão — 
Que é uma estrutura condicional. 
Ler, Imprimir e calcular são estruturas 
sequenciais. 

Um exemplo de estrutura repetitiva é 
a enquanto: 

Enquanto À < B 

Calcule A = A-1 

Fim — enquanto 

Supondo que A = Se B = 3 que 
acontecerá?. A operação do programa 
se dará entre o comando enquanto e o 
fim — enquanto, e a cada passagem, A 
passará a valer 4, depois 3. Quando A 
= 3 será falsa a afirmativa será falsa a 
afirmativa A B, e a operação será desvia- 
da para o fim — enquanto. 

Existem vários outros comandos es: 
truturados, cuja semelhança com co- 
mandos PASCAL é muito grande. Por is 
so insistimos nesta apresentação, 























Formato de um Programa PASCAL 

Em PASCAL não cxiste o conceito de li- 
nha, Uma declaração ou comando po- 
de iniciar em uma linha do texto e in- 
vadir as próximas linhas, 

O conceito de linha é utilizado em 
algumas linguagens de programação, 
como o BASIC e o FORTRAN, para de- 
limitar O fim de uma declaraão ou de 
um comando. Em PASCAL isto é feito 
utilizando o “;” (ponto e vírgula). 

No cabeçalho de um programa PAS- 
CAL aparece a palavra reservada Pro- 
gram seguida do nome de uma lista de 
nomes de arquivos extintos delimitada 
por abre e fecha parênteses e do deli- 
mitador “;”. 








Na lista, os nomes dos arquivos são 
separados entre si por vírgulas. 
Exemplo: Program Procura (input, out- 
pub); 

O corpo de um Programa PASCAL 
está dividido em seis áreas, onde so- 
mente a última é obrigatória. Em outras 
palavras as outras podem ser omitidas 
se não forem necessárias ao programa. 
São elas: 

— Área de definição de rótulos 
— Área de definição de constantes 

- Área de definição de tipos 
— Área de definição de variáveis 
— Área de procedimentos e funções 
— Área de comandos 
— Área de definição de rótulos 
Inicia com a palavra label seguida de 
uma lista de rótulos separados entre si 
por vírgulas, e finalizada pelo operador 

Os rótulos em PASCAL são numéri- 
cos e servem para assinalar um deter- 
minado ponto ao qual devamos retor- 
nar, 

Exemplo: Label 

1, 
32, 
199; 

Um rótulo é antecidido do coman- 
do go to. 

— Área de definição de constantes 

Começa com a palavra const e ser- 
ve para darmos nomes às constantes 
utilizadas no programa. 

Exemplo: const 

zero = 0; 
= 31416; 
— Área de definição de tipos 

Inicia com a palavra type e serve pa- 
ra associarmos nomes a tipos definidos 
a partir de outros já existentes. 

Os tipos de variáveis em PASCAL di- 
videm-se em simples e estruturados 


Os tipos simples podem ser: 
reais (real) 
inteiros (integer) 
caractere (char) 
lógico (boolean) 


Podemos usar nesta área uma defi- 
nição de tipos baseada em outro tipo 
de variáveis: 

Exemplo: type 
Dia = (Seg,, Ter, Qua., Qui, Sex. Sab., 
Dom.,); 

Útil = Seg Sex; 
Nota a 
Letra 
Área de RIDE de variáveis; 
Exemplo: var 
xy: real; 
1J: integer; 
Cont: 1...100 
Cor: (Preta, Branca); 

Note-se que a definição de variável 
COR usamos o mesmo procedimento 
que na área type: 

Área de definição de procedimentos 
e funções: 

Nesta área são definidas os 
procedimentos e funções utilizadas 
pelo programa. Os procedimentos ou 
rotinas iniciam com a palavra reservada 
procedure e as funções com a palavra 
function. Tanto Os procedimentos 
quanto as funções devem possuir as seis 
áreas de que estamos tratando (como se 
fossem programas), Repare as 
vantagens sobre uma rotina Basic ao 
chamar um procedure, basta 
referenciar seu nome e ele será 
executado. No caso de uma função, é 
possível passar as variáveis, ou seja: se 
você construir uma rotina para 
ordenação alfabética, utilizando 
internamente as variáveis 1 e J, poderá 
usá-la em qualquer programa alterando 
as variáveis de entrada para A e Bou D 
cE, à vontade. 

Mais tarde detalharemos melhor este 
aspecto. 

Área de comandos: 

Começa com a palavra Begin e 
termina com a palavra reservada End. 
Nesta área estão realmente os 
comandos que formam o alogaritmo 
da solução. Como regra geral, o ponto 
e vírgula é sempre utilizado ao fim de 
um comando. Vamos agora estudar 
com detalhes os comandos do Pascal: 








Comando de atribuição 
Significado: atribui à variável que 
está à esquerda o valor à direita, 
Exemplo: 
Ind: = 5 
= 10.000 *Q 
: = Total + Preço 
À direita pode existir uma expressão 
ou fórmula que usa os seguintes 





operadores: Operadores 
multiplicadores 
cam ef ediy” “mod” “and” 


div — divisão inteira 
mod — resto de divisão 
operadores aditivos 
E ud 
Além destes existem operadores que 
possuem precedência inferior aos 
aditivos e que produzem resultados do 
tipo lógico: “=" “> <" >" <= 
“>" “> =" A hierarquia das operações 
é a comum em matemática, com a 
possibilidade de alteração pelo uso de 
parentêsis. Exemplo: Este programa 
recebe dois números e fornece a soma 
e o produto deles. 

Program simples (input, output); 
var 
X, YSoma, Produto: real; 
begin 
read fe y; 








= XºY; 
Writlen (“Soma = ", Soma, “Produto = 
”, Produto); 
end 
Comandos condicionais: 
if — then — else 
Seu formato é o seguinte: 
if (condição) 
then (comando 1) 
else (comando 2) 
ou if (condição) then (comando) 
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É o equivalente do português 
estrutura se.... então .... senão 
Exemplo: Imprimir o maior de dois 
números. 

Program Maior (input, output); 
var 
y: real; 
begin 
read (x, y); 
ifx<=y 
Then writeln (“Maior = ", x) 
else writeln (“Maior = ", y) 
end. 

Comandos repetitivos 
while-do e repeat-until 
While-do seria o nosso equivalente a 
enquanto ....fim 
Enquanto 

Enquantc » for verdadeir: 
a operação se desviará até O fim e se 
repetirá quantas vezes for necessário. 
Exemplo: While (condição) 
do 
begin 
comando 1 
comando 2 
end 

Já a estrutura repeat-until repete os 
comandos até que a condição seja 
verdadeira 
Exemplo 
Programa Fatorial (input, output) 
var 
Num, Fat. |: integer; 
begin 
read (num); 

I I; 

Fat ih 
reapt 
Fat;=Fat'l; 

= I+1 

until 1> Num 








'ondi 








writlen (“Fatorial”, Fat) 
end 
Este programa calcula o fatorial de 
um inteiro Num:. Veja a semelhança 
com o algoritmo montado em 
português estruturado. 
Programa Fatorial 
Ler Num 
Calcular [=1 
Calcular Fat=1 
Repita 
Calcular Fat=Fat*I 
Calcular [= [+1 
Até que [> Num 
Escrever (“Fatorial = 
fim programa fatorial 
Comando Case: 
É uma estrutura condicional com 
muitas saídas. Sua forma é 
Caso (condição) 
l: comando 1 








+ Fatorial) 





12: comando 2 
13: comando 3 


Caso a condição for igual a 11, será 
executado o comando 1, caso igual [2, 
o comando 2 e assim sucessivamente 
Em Pascal, teremos: 
Case (condição) 
IH: comando 1 
12: comando 2 
13: comando 3 
end 
Comandos com repetição automática 
O comando for-to assemelha-se 
muito ao do FORTRAN e ao For-Next, 
do Basic 


for< variável > 
2> 


<expl> tw <exp 


do 
< comando > 


A variável irá assumir valores de exp 
1 até exp 2 ea cada iteração (repetição) 
será executado o comando. Para O co- 
mando repetitivo for-downto, os valo 
res assumidos pela variável serão de- 
crescentes: 








for< variável >: = < exp2 > down- 
to <expl>; 

do 

< comando > 


Vejamos um programa usando o co- 

mando for-to: 

Program Fatorial 

var 

Num, fat, integer, 

begin 

read (Num); 

Fat;=1 

for =1 to Num do Fat 

Writeln (“Fatorial =”, Fat) 
end 






Por todo o exposto até agora vemos 
grande semelhança entre os algoritmos 
em linguagem natural e os comandos 
do Pascal 

Próximas aulas. 

Neste primeiro segmento do curso 
de Pascal, o objetivo foi apresentar os 
andos principais e sua estrutura 
a linguagem, sem nos determos em 
maiores detalhes. Nos próximos seg; 
mentos, serão abordados os tipos, de 
variáveis, funções, procedures, arrays, 
etc, mais programas — exemplos que 
têm como objetivo possibilitar a mon. 
tagem de um pequeno sistema em Tur 
bo Pascal em seu MSX, ao fim deste cur- 
so. 











Aguardem os próximos módulos 


A Panacom está lançando dois programas muito especiais. 
O primeiro é ICONIA, um adventure premiado nos Estados 
Unidos pela revista THE RAINBOW e cujos perigos tiraram q 
sono dos juízes do concurso. O segundo programa é 
FRACTA, que segue a mesma concepção avançada de 
ICONIA, sendo ainda mais extenso e apresentando um 
enredo fascinante. São dois programas totalmente gráficos, 
coloridos, sonorizados, e controlados por um sistema que é a ray 
sucesso: ícones e menus. Peça hoje mesmo sua aventura de GR Se NS 4 disp 
categoria internacional! à ANTA 
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Certamente o leitor já teve contato com 
algum aplicativo desenvolvido sob 
CP/M. 

Este sistema operacional, muito uti- 
lizado no mundo inteiro para desenvol- 
vimento de software profissional, tor- 
nou-se praticamente padrão nestas apli- 
cações. 

Sob ambiente CP/M podem-se rodar 
linguagens como FORTRAN, PASCAL, 
COBOL, etc..., o que torna o desenvol- 
vimento dos sistemas mais rápido, ba- 
rato e seguro do que com o tradicional 
e limitado, (para estes usos), BASIC. 

Sob o mesmo ambiente CP/M surge 
também a opção de rodar o software 
gerenciador de bancos de dados cha- 
mado dBase II. 

Antes de ini 
mos a alguns conceitos b; 
para os iniciante: á 













º 
Sistema Operacional. 
É o responsável pela execução dos co- 
mandos básicos de uma máquina e pe. 
lo tratamento das operações de entra- 
al a leitura e a gra- 












operacional é carregado 
do equipamento por 
ocasião do acionamento deste perma- 
necendo residente até o desligamento. 
O estado de prontidão do CP/M é 
determinado por uma letra e o sinal. 





Banco de Dados. 

É uma coleção organizada de informa- 
ção apresentada para servir a um deter- 
minado propósito. 

Um dos exemplos mais familiares de 
banco de dados é a lista telefônica. Es- 
te banco de dados contém nomes, en- 
dereços e telefones de indivíduos, em- 
presas e instituições. Os endereços e te- 
lefones tem pequeno valor por si mes- 
mo. Eles são úteis quando relacionados 
a um nome, o que reforça a idéia de co- 
leção organizada. 


Sistema Gerenciador de Banco de Dados 
(SGBD) ou Data Base Managment System. 


É uma linguagem de programação que 
parte da criação de uma estrutura de da- 
dos como base para utilização de seus 
comandos. 

O usuário define a estrutura de da- 
dos a ser utilizada e a partir daí conta 
com uma série de comandos que per- 
mitem: 

e listar 

* adicionar 

* deletar 

* alterar O seu conteúdo 

Esta estrutura de dados consta de: 
arquivos, compostos de registros, que 
por sua vez são compostos de campos. 








A função de um SGBD é proporcio- 
nar meios de gerenciar esta massa de in- 
formações. 





Arquivo 
É o lugar onde serão armazenados os 
dados que serão necessários posterior- 
mente. 


Um arquivo é composto de registro. 


Registro. 

É o conjunto de informações agrupa- 
das por um mesmo vínculo, da melhor 
maneira possível, para utilização em 
aplicações determinadas. 

strO É composto de campos. 








CAMPO. É cada uma das informações 
a serem agrupadas num registro. 

Um campo é composto por bytes. 
BYTE. É a unidade de informação. A 
cada byte corresponde um caractere 
(letra, número ou caractere especial) 

Um byte e composto de 8 bits (uni- 
dade mínima de informação = O ou 1 
em binário). 


Modelos de Banco de Dados. 

(Modelo Hierárquico) Baseia-se no con- 
teúdo de que uma determinada classe 
de aplicações permite acesso a outras, 
em níveis mais baixo. Exemplo. Seja o 
cadastramento de funcionários de uma 
empresa: 
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Divisão Organizacional 
Funcionários Área de Atuação Projeto 
Filhos Experiência profissional 








Se quisermos informações sobre os 
filhos dos funcionários, bastará acessar 
o arquivo de funcionários e depois ou- 
tro acesso, aos filhos de um funcioná- 
rio X. 

O modelo hierárquico é muito uti- 
lizado em grandes computadores 








Modelo Relacional. 

É a base do sistema dBase II, das quais 
se obtém as informações desejadas. 
Exemplo: um arquivo com nome, en- 
dereço e telefone de um cliente. 
Poderíamos montar uma tabela tipo: 











Nome Endereço 
Luís Rua XYZ 70 
João Rua João 80 
ou outra: 

Nome Telefone 
Luís 2558020 
João 3578077 
ou 

Enderc Telefone 






Rua XYZ 70 2558020 

Existe neste modelo de dados uma 
relação forte entre os elementos da ta- 
bela: O acesso as informações é simples: 


Aun re 
soRcER 
BurTLE FOR Ma 
Jocos io 
FITA: C2$ 10000 DISCO: C2$ 15000 
(0): PODE SER EM DISCO 


GROGS REVENGE [0] — baseado no ausanrho 
SUPER SOCCER (0) — rovo joga de nota 
TIME PILOT [0] — avião em varasgocas 
CIRCUS CHARLES [DI — churta se nocrco 
STOP THE EXPRESS (| 


JUMP JET DI 
BLAGGER — 
JET SET WILLY 
BOXE ID) 
BUCK ROGERS (0) 





RAMBO ID) baseado no im RAW ZAXRON O) — fa 
GUNERIGHT (0) — vero De sstcos WAR HEND O) 
CHILLER O] 








NORTH SEA HELICOPTER (0) 
ROLLERBAL (O) — mg 


SUPER ROBÓ (0) LODE RUNNER (0 





FLApPY (Dj 


dem 


MANIC MINER 


ON 
NPR KINGS VALLEY — 


NINIA 














RNGHTMARE deseadoro mede 
RONAME a Me DO [D) — destrua 05 manstr 

br Es Ee BOUDEROASH — pogue os mares ras caem 
SENTO = ação de came om WARROI DI mea og co 
KYZOLOG (0) — mode esta e açdoráocs + 

BACK TO HE FUTURE) — DiseacaPotie FITA: CZ$ 25000 ! DISCO: C2$ 30000 
STARWARS 0] emoc rante car espacio 

HYPER RALLVE 0] — smuação decr Vis TASNORO (D) — socessaço get E 
ceráro PSS [Di — assemb ceassem 

ELEVATOR ACTION (DI — pegue los as mas e escape MAGIC SETIDI — sugere 

FLIGHT DECK (D]— jog de estreia Tee datadas — SPAITE MACHINEIDI — etc 

CH05 — ele eu terá desrbis emrs FORT — or ada FORT 
MUNG FU MASTER 0) — Sm ação de ate mare PASCAL — comotador PASCAL 








GALANIA — destrua se naves rim gas 





GYRUS ADVENTURE — lo peretaros com e costen 
CHUCKIE EGG — pegue todos sue e La das ves 
PUNCHI — save os benês Elena ce voz sr cat 





FA6 (DI — sm dado mt TURBO PASCAL 
KNIGHT LORE [D) — aventura no castelo em 30 BDSC— comp 
NIGHT SHADE (0) — m3o BASCOM — com; 











ELIDON — ache as ie 
MASTER OF LANPS. 
combate 


CHAMPIONS NATIONAL 
ERIC FLONTERS ) 


astado no CUP” ve Micha 
HOLE IN ONE (O) — go ce got 

ULTRA CHESS [D) — útm 
THE WRECK — ache 


THE GOONIES — encontre seus am 
recolra os oblos 





AVIEW TOA KILL (0) 


o COMPILADOR BASIC + como taco si 


UTILITÁRIOS APLICATIVOS (DISCO) CZ$ 80000 








mente o acesso às tabel 
Rodando o dBase Il 

O que o leitor precisa para rodar o sis- 
tema dBase II? 

Um computador com possibilidade 
de rodar CP/M como por exemplo: 
Apple com placa CP/M e 80 colunas 
TRS 80 com placas de expansão para 
CP/M 
MSX com placa CP/M, etc. 

O sistema CP/M exige pelo menos 
64 Kbytes de memória para rodar. 

Você necessita também do software 
dBase II original com documentação. 

Se você possui estas ferramentas po- 
de testar tudo que será explçicado neste 

















Iniciando a Operação 
Coloque o disco com o software dBa- 
se II no drive, e digite a dBASE ou a 
dBASE 

O gerenciador será carregado para a 
memória do equipamento, permitindo 
assim a utilização de seus comandos. 

Após carga do sistema, dBASE per- 
guntará 
ENTER DATE AS MM/DDNYY or RE- 
TURN FOR NONE: 

O usuário deverá teclar RE 
TURN/ENTER ou indicar a data para o 
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istema no formato MM/DD/YY. 

A partir daí poderemos trabalhar em 

dois modos: 
MODO INTERATIVO em que o usuá- 
rio apenas usa comandos padroni; 
dos, para trabalhos com outros arqui- 
vos e criar relatórios. 

O Modo Programado em que são 
usados comandos a linguagem dBase 
H, o que permite construir sistemas e 
programas e gravá-los em disco. 

Como supomos o leitor tenha al- 
gum contato com linguagens de pro- 
gramação como o BASIC e achamos 
mais fácil iniciar com os comandos de 
progrmação. 

Antes de escrever um programa, de- 
ve-se determinar a configuração (para- 
metros do sistema), a serem usados. 
Isto é feito com: 
metro ON/OFF) 

SET BELL ON 

Faz emitir “becp” cada vez que fo- 
rem digitados dados não compatíveis 
com o comando. 

Há uma lista de parâmetros em seu 
manual, porém podemos mostrar Os 
mais importantes 
INTENSITY ON 























— operações em tela 
cheia aparecerão 
com dupla inten- 


DÉ A SEU MICRO 
OMELHOR 
TRATAMENTO 


Cuidamos do seu 
equipamento com uma 
equipe técnica altamente 
especializada e da sua 
tranquilidade com um 
atendimento de alto nível e 
honestidade absoluta. No Rio 
de Janeiro, só a MODULAR. 
SYSTEMS lhe oferece estas 
vantagens. 

e Check-up grátis 

* Rapidez no atendimento 

e Transporte ida e volta 

e Relatório detalhado de 
serviços 

* Honestidade absoluta 

€ Nacionais ou importados 


modular, 


systems 


Rus Almirante Cochrane, 202 
cos Onuca - Tel. (PBX) 284-6087 


sã 


Envie 0 seu peido à JVA MICROCOMPUTADORES LTDA. 
Rua Mayrink Veiga 3215) — Rio de Janeiro — RI — CEP 20090 — Tel: 1021) 2539291 
acompanhado de cheque nominal e enuzado no respectivo vaio. 




















sidade, ou ao in- 
verso em alguns 
monitores. 
INTENSIT OFF — Não aparecerão 
com dupla intensi- 
dade 
PRINT ON — saídas reproduzidas na 
impressora 
PRINT OFF — bloqueada a impresso- 
Ta 
SCREEN ON — São permitidas as 
operações de, tela 
cheia 
SCREEN OFF — não são permitidas 
operações de tela 
cheia 
TALK ON — os resultados dos co- 
mandos são apresenta- 
dos na tela 
TALK OFF — o comando é executa- 
do, mas não apresenta o 
resultado em tela. 

Um programa a ser executado é in- 
troduzido atavés da criação de um ar- 
quivo de comandos por um editor de 
textos, onde o programador introduz 
comando a comando. 

Na execução, os comando: Tão 
processados um a um na sequência de 
programação. O nome do programa se- 
rá o nome do arquivo de comandos e 
deverá obdecer aos critérios do sistema 
operacional CP/M. 

O editor de textos do dBASE é o co- 
mando MODIFY COMMAND. 
Exemplo: MODI COMM A: PROGOI 
Abre o arquivo de programas chama- 
do PROGO, no drive A. 

A partir daí podem ser inseridas as 
instruções, usando-se para editá-las a te- 
cla CTL seguida de uma outra. 

CTLN insere uma linha 
CTLA computa letra maiúscula/minús- 
cula 
CTLX avança uma linha 
CTLS retrocede uma posição à esquer- 
da 
CTLD avança uma posição à direita 
CTLE 

retrocede uma linha 
CTLR 
CTLT deleta uma linha 
CTLW 

sai do MODI COMM. gravando 
o conteúdo introduzido no arquivo 
CTLO 
CTLQ sai do MODI COMM sem gravar 
arquivo 





CTLY deleta todos os caracteres da li- 
nha à direita no cursor 
CTLC avança meia páginas do arquivo 
CTLY comuta a inserção ou não de ca- 
racteres sob o cursos 
CTLG deleta o caracter sob o cursos 

O dBASE comandos estruturados, 
portanto não existem números de li- 
nha. 

As estruturas de programação pos- 
síveis, são: 

SE condição ENTÃO faça comandos 


FIM 
ou SE condição ENTÃO faça coman- 
dos 1 
SENÃO faça coman- 
dos 2 


FIM 
FAÇA ENQUANTO condições co- 
mandos 


FIM 
FAÇA 
CASO condição 1 

comandos 2 
condição 2 CASO 
condição 2 

CASO NENHUMA 
comandos 

FIM — CASO 


Estas estruturas de programação, 
existentes em várias outras linguagens 
em dBase II são comandos: 


IF CAMP 1 = 100. OR. CAMP = 90 
LOOP 

ELSE 

STORE O TO PREC 

END IF 


Estrutura em LOOP: DO WHILE 
STORE 1 TO CONT 
DO WHILE CONT 10 
O 3,2 SAY “TESTANDO LOOP” 
O 4,10 SAY CONT 


STORES CONT + 1 TO 

END DO 

Obs: Um comando LOOP dentro de 
um DO WHILE força o reinício do DO 
WHILE 

Obs: O comando 

(O 3,2 SAY “TESTANDO LOOP” 
Substitui o comandos PRINT, ou seja, 
que dizer: 

“Imprima na linha 3, coluna 2, 
“TESTANDO LOOP” 

Estrutura CASE 
DO CASE 

CASE OPT = “1”, OROPT = 
“2º DO PROGI 

CASE OPT = '3' DO PROG3 
ENDE CASE 

No exemplo caso OPT = "ou OPT 
= “2'o dBASE chamará para execução 
(RUN) o programa PROGI. 

A propósito, é bom lembrar que o 
número máximo de programas enca- 
deados ou rotinas é de 16. 

PROG2 -— PROGI6. 
“ cada programa, deve ha- 
ver um RETURN. 
Dentro de um programa não há né 
siclade de ao elaborar uma tela, po: 
nar com X, Y SAY cada título que apa- 
recerá em tela. 
Basta usar O comando TEXT: 
TEXT 
RELATÓRIO DBASE II 
PRODUZIDO POR — — 












END TEXT 

No caso de você querer escrever um 
menu, há facilidade adicionais como 
GET e READ: 





Vejamos: 

O 3,18 SAY “DESCRIÇÃO! = GET 
DESC 

O 1,2 SAY “TIPO! = GET TIP 

(O 13,2 SAY PREÇO! = GET PREÇO 
PICTURE “999.9 


READ 
DO CASE 
CASE TIP = AI 
STORE PREÇO * 1.10 TO 
PREÇO 2 
CASE TIP = A2” 
STORE PREÇO * 1.20 TO 
PREÇO 2 
CASE TIP = A3” 
STORE PREÇO * 1.30 TO 
PREÇO 2 
OTHERWISE 
STORE PREÇO TO PREÇO 2 
ende case 











mm 

















SÓ EQUIPAMENTOS PROFISSIONAIS PODEM ARMAZENAR 
TUDO ISSO. O HOTBIT DA SHARP TAMBÉM PODE. 


A Sharp está lançando o HB-6000 Disk Drive e o HB-3600 « Profissional nos programas: o Disk Drive, com o HB-MCP, toma 
Dual Disk Drive Controller para computadores padrão EGI. o HOTBIT compatível com o CP/M 2.2, o que permite acesso 
Com eles seu HOTBIT se torna definitivamente profissional. à maior biblioteca de software profissional do mundo. 

« Profissional no desempenho: o uso do disquete permite um Como você vê, o HOTBIT deu um passo decisivo para enfren- 
acesso imediato aos dados, arquivos e programas. tar qualquer desafio profissional. Mas há ainda muito mais a ser 


visto, Passe no seu revendedor e conheça de perto o Disk Drive 
HOTBIT e todas as vantagens que ele pode trazer para você e seu 


computador pessoal. 
HOTBITES 


« Profissional na capacidade: podendo armazenar até 720Kb. 
Com o Disk Drive, você pode ter acesso a dados que foram 
produzidos no IBM PC”, pela compatibilidade de arquivos 
existentes entre o He DOfe o MS-DOS. 


Ercóúm 








deve ter percebido, 
ão (LET em BA- 


a operação de atribui 
SIC) é feita através de STORE (variável 
ou valor 1) TO (Variável 2). 

Repare que para construirmos o me- 








nu, utilizamos SAY nas posi indica- 
das, seguido de um GET. O G indi- 
ca que na execução do programa, o 
cursor irá se posicionar naquela posi- 
2 
O READ ao final dos GET posicio- 
nados, indica que serão lidos os valo- 
res dos GET, e atribuídos as variáveis 
respectivas, no caso DESC, TIP e PRE- 
). 
A claúsula PICTURE 999.99 é uma 
que valora ser di 
ão deverá 
algarismos, mais duas 
























gitado naquel 
mérico com três 
casas decimais. 
Outros Formatos: 
PICTURE 'XXXX limita e permite a di- 
gitação de qualquer caractere. 
PICTURE “ ou PICTURE '999" são 
idênmticos 
PICTURE AAA limita é permite a digi- 
tação de letras, somente 
O comando O SAY também pode 

ser usado com a m: a USING. 
ixemplo; O 3, 4 SAY USING “999” 

Neste caso, a 17 ra terá a mesma 
função que tinha no caso da PICTURE. 





















as formas de Entradas 

ACCEPT — o comando do ACCEPT 
permite ao usuário solicitar a digitação 
de uma variável caractere, com poste- 
rior transferência para a memória, sem 
ser informado das coordenadas X, Y 
como no GET pc ando, 











COM ESTES PROGRAMAS . 
VOCÊ CONVERSA EM PORTUGUÊS. 


Brasileiros, tecnologia avançada, alta performance e com 
experiência de três anos. Assim é o nosso sol 


HEEEESTO teto, 
os outros fazem vitamina 





Exempl 
ACCEPT “DIGITE SEU CÓDIGO” 
TO CODSERV 

Irá fazer a string aparecer na tela DI- 
GITE SEU CÓDIGO, e ser atribuída à 
variável em memória, CODSERV uma 
string a ser digitada. 
INPUT. O comando INPUT permite so- 
licitar a digitação de uma variável carac- 
ter numérica ou lógica com posterior 
transferência para a memória. 
Ex. INPUT “DIGITE SEU CÓDIGO” 
TO CODSERV 

Fará com que você possa atribuir a 
CODSERV um número, uma string ou 
um valor lógico. 















Interrupção Momentânea de um pro- 
grama — WAIT 
O comando WAIT permite ao usi 
interromper momentan 
programa até que o opera 
qualquer caractere. 
Ex. WAIT 
WAIT TO CPI 

Interromperá o program: 
dará por um valor que será 
variável CPI 











e aguar- 
atribuído à 








Comentários/Documentação 
O caractere * ou O comando NOTE 
possibilitam a introdução de linhas não 











apresentaç 
gue no depositivo de s 
Operadores admitidos no dBase 1] 
Aritméticos + Adição 
Subtração 
x multiplic 
! divisão 


io do comentário que o se- 








Cm 


caracteres + Concatenação 
- de strings 

Exemplo 'SOLUCA + “O” 
SOLUÇÃO 

caracteres + Concatenação 
- de strings 





Exemplo 'SOLU CA + o 
SOLUÇÃO 
Lógicos () Agrupamento de expres- 


sões 

< Menor que 

< = Menor ou igual 
> Maior que 

> = Maior ou igual 
= Igual 

“> Diferente 
Contido em 

OR, ou booleano 
booleano 








principais comandos € instruções do 








ndos pai 
próxima parte, seguiremos com co- 
mandos de manipula 
dos dentro de um programa, O ob- 
jetivo é construirmos um sistema de 
controle de estoque ao final do curso, 
maneira mais rápida possível para o 
leitor, mesmo o que não tenha expe- 








dBASE programado, assil 


operação do sistema, Na 





ão de arquivos, 








em sistema deste tipo. Com is: 


to mostraremos também a flexibilida 
de de um software tipo. Com isto 
mstraremos também 
um software que marcou época na po- 


a flexibilidade de 








jo de computadores. Até a pró- 


O EDITOR é um sistema para a criação 
eedição de programas adventures. Ele 
permite a manipulação de todos os ele- 
mentos do jogo, tais como objetos, ver- 
bos, mensagens, posições, funções, etc. 
À programação do jogo é exatamente 
igual para todas as linhas de equipa- 
mentos e os programas criados são com- 
patíveis a nível de estrutura funcional. 


MSX (cassete) Cz$ 800,00 
disponível também para CP 500 e 
TK 90X 











civnzofia 





TK 90X 





(O AMAZÔNIA é uma aventura emocio- 
nante onde você estará envolvido nas 
mais incríveis situações de perigo. En- 
contre a saída e sobreviva... 

Você jamais esquecerá essa aventura. 


MSX (cassete) CzS 190,00 
disponível também para CP 500 e 


Utilitári 





fica seus parâmetros. 


MSX (cassete) Cz$ 500,00 


POr: io elias BK P 


Proteja seus programas originais, fazen- 
docópias de segurança. Com o BKP vo- 
cê duplica programas com ou sem 
HEADER, em várias velocidades e veri- 





Em breve, GRAPHOS Ul! 


ido, indicando as 
já seu pedido, indican 
E desejadas é seu endereço 
completo, acompanhado e ui 
cheque nominal à 


JVA MICROCOMPUTADORES LTDA. 
Rua Mayrink Veiga 32/sl - Centro 
Rio de Janeiro - RJ - 20090 
Tel.: (021) 2539291 


CREDENCIAMOS REVENDEDORES 














PROGRAMAS PARA MSX 


JOGOS: 

Hot Shoe - Hunch Back - Dog Fighter - Polar Star - Cannon Fighter 
Spooks & Ladders - Star Avenger - Shadow of the Bear 

Shark Hunter - Binary Land - Le Mans - Norseman - Classic Adventure 
Pyramid Warp - Cave Flight - Bumerangue/Maze UP - Buzz OFF - 

Disc Warrior - Lazy Jones - Boulder Dash - OH Mummy 


APLICATIVOS: 

Curso de Basic - Calcomp (calculadora científico-financeira) 
Topografia (eng. civil) - Imposto de Renda - Controle de Estoque 
Mala Direta - Contas a Pagar e Receber - Orçamento Doméstico 
Orçamento de Obras - Viga contínua. 





























ENGESOFT TECNOLOGIA NA INFORMÁTICA LTDA. 
04501 - Av. República do Líbano, 2.073 - Tel.: (011) 549-9788 
Caixa Postal 42055 - São Paulo - SP 


Distribuição nacional nos magazines e lojas especializadas. 








Chegou uma autêntica vitamina de inteligên- 
cia para seu MSX ou TK-90X: a vitamina Dis- 
prosoft. São mais de 150 programas inédi- 
tos, de fácil digestão para você e seu micro. 
Vitamina bem brasileira, com os programas 
editados em português, que proporcionam 
incríveis emoções. ' 

Ingredientes: jogos animados-e inteligentes, 
programas com aplicações comerciais, pro- 
fissionais, educacionais e utilitárias. 








MSX e TK-90X da Disprosoft: os pro 
mais saudáveis do mercado. Nas melhores 
lojas, sem contra-indicações. 

É 


Ps, 


RE sRBESL, 


SEMPRE UM GRANDE PROGRAMA. 
TROPIC informática Ltda. 
Caixa Postal 16441 - SP -CEP 02599 





ISPONÍVEL TAMBÉNEEMICARTUCHOS: 


